




















U38F9 - DCP DISKETTE UTILITY PROGRAM P/N=1635019 EC=375147 PAGE 01 U38F9 = DCP DISKETTE UTILITY PROGRAM P/N=1635019 EC=375147 PAGE 9O1A 
LOCTR OBJECT TEXT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 U38FO START xX*1800! 000008 120 NDFPS EQU 8 NUMBER ENTRIES/SECTOR IN VTOC 
eo oO OO Gig OOO OR i IOI Im gi ior ig ki gi RIK if fa fk ok kag koi ak OOOOOA 121 VHDLG EOU 10 NUMBER BYTES OF HEADER INFORMATION 
5 * * OOOOOA 122 DCPCY : U 10 CYLINDER DCP IS ON 
6 * ak 2 3k PREREQUISITES We cake * 000100 123 PSCSZ U 256 4966 SECTOR SIZE-256 BYTES 
7 * * 001000 124 ISCSZ EQU 4096 4964 SECTOR SIZE~-256 BYTES 
8 * NONE * 000106 125 IBIID Xx*01068 4964 READ DEVICE ID 
9 * * 000126 126 PELID z U = -x*0126! 4966 READ DEVICE ID 
10 oko oo oko ok ook koigiok iio im loki igi igioioi ii gai iii IR im iO is IC I ica teak akc ak ake ake ake ake ac 126 Paes SN EP Tne ae eee ee em ee Ce eT RT Eee ee Ea ee 
11 * * 
* ok 2k ok we ok * 130 * EQUATES FOR CODED STOPS USED BY THIS UTILITY MONITOR * 
42 * NODE EChT ONS * 135 : (NORMAL AND ERROR) : 
7s : ADD SUPPORT FOR THE 4966. : 133 OO OOOO OI GIO Oi IO moi IOI i iaiOi ii iO IR ii IGRI ek ieee ake teat ake ade te ak 
16 oOo gO lok igi iok kkkoiom i loko ioiok iG kok OR gm Ri RIOR II II IOI ir R ak kkk tak gk ak te 33k ak 00380C 134 UTL1 EQU x*380c? DATA SET NOT FOUND 
17 * a 00380B 135 UTL3 <EQU X*380B° DISKETTE ERROR 
18 * ek ok REA'*S INCORPORATED ok * 003871 136 UTLEY EQU X*3871! LOAD THE IPL DSKT ON THE IPL DEVICE 
19 * * 003806 137 UTLS EQU X¥*3806° INVALID COMMAND 
20 * NONE * 003872 138 UTL6 EQU X'*3872° SECTOR DISP ERROR CODE 
21 * * 003874 139 UTL8 EQU X'3874! WORD COUNT ERROP 
22 2; lok lok ook moi ion ik ok koi go ok loki ok ioioiaiok io ioiok kick ko ioigioiok iickoioioi ak tak tak iakakckc i kote oka 003875 140 UTLO  £EQU xX'*3875! PATCH IN DS OR OUTSIDE PGM LIMITS 
a s $3875 13 UREN) Bou saat: TNSEET SSB rSKETEE 
24 * me ak ok SPECIAL INSTRUCTIONS * Kx * - 
25 * * 003878 143 UTL12 EQU X' 3878! VERIFY ERR 
26 * NONE a 003879 144 UTL13 EQU x*'38798 IS THE DISKETTE LOADED 
27 * cd OO387A 145 UTL14 EQU X*387A? LINE OF DAT 
28 oO ok gam koi loki oii lok io kok iio ak ok io aici oki acai a i GK i ack ik ak ak ak ak 00387B 146 UTL15 EQU X'*387B! IS 8 RETRIES REQUIRED FOR ERRORS 
29 * *x 00387C 147 UTL16 EQU X'*387C! ENTER THE DATA SET NAME 
30 * a 2k ok E. C. HISTORY ie ok 2 2 00387D 148 UTLI7 EQU X'387D¢ ENTER START ADDRESS 
33 : BREE 130 Garis Egu | eaeTE Euten Cvruses" 
2 * DATE 010CT76 DATE O2DEC76 DATE 17DEC7T6 DATE 10JUN77 * 
33 * E.C. 578468 E.C. 578469 E.C. 578486 E.C. 578625 * 003880 151 UTL20 EQU X* 3880! ENTER THE HEAD 
3 : 003882 125 UTES? FOU | xt aBBt ENTER THE NUMBER OF SECTORS 
35 * DATE 15SEP77 DATE I15JAN79 DATE DATE * 
36 * E.C. 754882 E.C. 375147 E.C. ELC. * 003883 154 UTL23 EQU X*3883! ENTER THE sy 
37 * * 003884 155 UTL24 EQU X'§ 38848 NOT ENOUGH. ROOM ON THE DISKETTE 
3] ee 2k ai he ae ake 2 2c a af ake ake 2 2 fe a af akc af ake af akc a keke akc ae a ac a fe 2 ake ae ake a ae af ak akc a ae ake ak ake ae ake ake ake aca ake akc ake ak ake ake akc ake ak af ake ak ake afe ae ake a 003885 156 OTL25 EQU X'38858 VTOC FULL--DATA SET NOT ADDED 
U0 OR tok fom tok loko io ii i i kok ikea ak ick ake kak ake ake ake ake ake aie ak ake ake a ake ake ak af af ake ake fe ae aie ke aia ake a af kc ake af ake ak aie fe ac ae 003886 157 UTL26 EQU X*3886° START ADDRESS HIGH 
iD : 003888 189 UTLo8 FOU xt aBaet DISKETTE POSITION 
42 * EQUATED NAMES FOR SUPPORTED SVC'S * 
43 * Q * 003889 160 UTL29 EQU X*'3889! ANY MORE TO DO WITH SAME DEVICE 
Ub Ue 2K afc ak fe age abe ake fe fe ae ae kz af ac akc ae ake a aft ake aft ake ake a a akc ak ake ke af ake ake ake ake ak ke afc ake ake ae a ake akc ae ake af a ake ake ake a ake ak ake ic ake ake afc af afc ak akc ak ae ae ake ake aie ake ke OO0388A 161 UTL30 EQU X'388A" DEVICE ADDRESS 
000000 45 ouT QU 0 OUT SVC 00388B 162 UTL31 EQU X'388B! SELECT ONE OPTION 
000001 46 OUTIN EQU 1 OUTIN SVC 00388C 163 UTL33 EQU X'388C'! ENTER FROM ADDRESS 
000003 4&7 IDLE5 EQU 3 IDLE SVC 00388D 164 UTL34 EQU X'388D* ENTER TO ADDRESS 
000007 48 TERM EQU 7 TERMINATE SVC 00388E 165 UTL35 EQU X'388E* START ADR LOW 
000013 49 RICB EQU 19 RESET INT CONTROL BLOCK 00388F 166 UTL36 EQU X'388F? ENTER END ADDRESS 
000014 50 CICB EQU 20 CONNECT INT CONTRL BLOCK 001800 F3F8C6F9 168 DC CL4! 38F98 PROGRAM IDENTIFIER 
000016 51 REQSD EQU 22 REQUEST SYSTEM DISKETTE 001804 00 169 LEVEL DC x*00't PROGRAM RELEASE LEVEL 
000017 52 RELSD EQU 23 RELEASE SYSTEM DISKETTE 001805 FF 170 DC X'FF* DEFINITION RESERVED 
QOOOO1A 53 HTOE EQU 26 HEX TO EBCDIC SVC (STRING) 001806 2634 171 INADR DC A aaaay INITIAL EXECUTION POINTER 
00001F 54 READI EQU 31 READ IN AN OVERLAY 001808 1812 172 DEVPT DC A (DEVTB) DEVICE TABLE ADDRESS 
56 2G OR IO OR OG IO iO GI CO IG IGG OI kk kaki i aiok kak i ak kak ak aca ak ke a akc ak 00180A 38F9 173 RTNE DC X*38F9° CURRENT ROUTINE NUMBER 
S7 * * 00180C 0000 174 CKPT DC A(0 CURRENT CHECKPOINT NUMBER 
58 * EQUATE TABLE * 00180E 0000 175 OPTN1 DC A (0 OPTION WORD ONE 
59 * * 001810 0000 176 OPTN2 DC A(O OPTION WORD TWO 
60) Re 2 ke afc fe ate ake ake ake a ae ac akc 2c ake ke af ae ake akc a ake ake ake ak afc ake ake ae a ake ak ake ake ake a a ke ake ake akc ake ae fe ake ak ae ake aft ak ake ake ake akc ake ake ake ae ake a ake ake ake ak af ak a ate ae ak 001812 0001 178 DEVTB DC A (1 NUMBER OF ENTERIES 
000230 61 LASAD EQU  xX*230! LAST ADDRESSABLE WORD IN STG 001814 0048 179 DEVAD DC X*OO048" 
000233 62 DKAD EQU X*233! SYSTEM DISKETTE ADDRESS 001816 0000 180 DVASG DC x'oeo0or 
000234 63 DCPIN EQU X*234' DCP INDICATORS 001818 00000000000000000 181 DC raat 
000248 64 SCHED EQU X'24s8' 001824 8000 182 DEVGN DC X*so000' 
000000 65 TPGSW EQU 0 TERMINATE PGM SW 001826 O0O0F 183 SPT DC A(SPTE) 
000000 66 ZERO EQU 0 VALUE OF O 001828 1E 184 SPT2 DC X'1E* 
000001 67 ONE EQU 1 1 001829 1A 185 SPTA DC X'1A* 
000002 68 TWO EQU 2 2 Q0182A OF 186 SPTB DC X'OF® 
000003 69 THREE EQU 3 3 00182B D5 187 NO DC C'nt 
000004 70 FOUR EQU 4 4 00182Cc 09 188 SAVEO DC A (*-* 
000005 71 FIVE £EQU 5 5 00182E 00 189 SAVE6 DC A (*= * 
000006 72 SIX EQU 6 6 001830 00 190 SAVE7 DC A (*-* 
000007 73 SEVEN EQU 7 7 001832 00 191 ERROR DC A (*-* 
000008 74 EIGHT EQU 8 8 001834 00 192 RTYCT DC A (8) 
OOOOOA 75 TEN EOU 10 10 19.4 ook cgi GG oo om gio oli toi gio io igi iio kak iii ica io i kak i kaka tok deka ae ak ako te ake ak 
OO0COB 76 ELEVN EQU 11 11 195 * a 
00000C 77 TWELV EQU 12 12 196 * THE FOLLOWING IS THE DESCRIPTION OF THE DIAGNOSTIC * 
Q0O0Q00D 78 THRTITN EQU 13 13 197 * DISKETTE FORMAT: * 
QOOO0E 79 FORTN EQU 14 14 198 * START END * 
OO0O000F 80 FIFTN EQU 15 15 199 * CYL TRK CYL TRK DESCRIPTION * 
000010 81 SIXTN EQU 16 16 200 * 0 0 0 1 IPL PROGRAM * 
QOOCTA 82 TWEN6 EQU 26 26 201 * 1 0 3 1 DISKETTE DIAGNOSTIC TEST TRACKS * 
00001B 83 TWEN7] EQU 27 27 2902 * i) 0 5 1 CPU TEST PROGRAM (PROC! * 
QOOO01E 84 THRTY EQU 30 39 203 * 6 0 7 1 CPU TEST PROGRAM (PROC2 * 
000020 85 THIR2 EQU 32 32 204 * 8 0 9 1 CPU TEST PROGRAM {(PROC3 * 
Q0003C 86 SIXTY EQU 60 60 205 * 10 0 10 1 DCP PROGRAM (DCPO * 
Q0003F 87 SIXT3 EOQU 63 63 206 * 11 Q 11 1 VTOC (DIRECTORY) * 
000041 88 SITXT5 EQU 65 65 207 * 12 0 73 1 PROBLEM PROGRAM SPACE * 
000063 89 NINEO EQU 99 99 208 * MDI * 
QOOO0T7F 90 ONE27 EQU 127 127 209 * MAPS AND TUS * 
000080 91 ONE28 EOU 128 128 210 * DCP UTILITIES * 
0001C0 92 TWO56 EQU 256 256 211 * OTHER DIAGNOSTICS * 
000127 93 TWO95 EQU 295 295 212 * 74 0 76 1 DISKETTE DIAGNOSTIC TEST TRACKS * 
000800 94 TWOK EQU 2048 2048 213 * * 
001000 95 FOURK EOU u096 U096 271 GOO OO IGG IO I IG IO GIO Ig I IQR IG GIGI Ig II II i kak aK gai aka ak 
QOQO00F 96 HOOOF EQU X*OOOF! X'OOOF® 215 * * 
OO3FFO0 97 H3FFO EQU X*3FFO'° X'3FFO! 216 * THE FOLLOWING IS THE FORMAT OF A VTOC ENTRY: * 
OOFFOO0 98 HFFOO EQU X*FFOO! 295 217 * x 
FFFFFF 99 M1 EQU -1 -1 218 * EACH ENTRY IS 32 BYTES IN LENGTH WITH 8 ENTRIES/SECTOR. * 
FFFFFC 100 M4 EQU -4 -4 219 * * 
102 2 GO OOOO OGIO iG IO IO ii iGO i kokoiok kak ik i aK i lok gai kaki kak ak ake ak ake af 220 * BYTES DESCRIPTION * 
103 * * 221 * O- 5 DATASET NAME IN EBCDIC. * 
104 * EQUATES FOR DISKETTE * 222 * 6- 7 BEGINNING RECORD NUMBER OF THE PROGRAM ane OF). a 
105 * * 223 * 8- 9 ENDING RECORD NUMBER4+1 OF THE PROGRAM (EOE). * 
106 oR Ook io ook om i Or i ia i i IG a ik i ak kok ak ak ake ak ak ake 2k a ak 224 * 10-11 RESERVED (USED IN PRGPDS ENTRY AS pools * 
000006 107 BOE EQU 6 DISP TO BOE IN THE VTOC 222 * 12 TYPE OF DATASET - vee PROGRAM DATAS * 
000008 108 EOE EQU 8 DISP TO FOE IN THE VTOC 26 * - 'pt NON- ADDRESSABLE’ DATASET. * 
000010 109 PTCNT EQU 16 DISP TO PATCH COUNT 227 * 13-16 RESERVED. * 
Q000COC 110 DSTYP EQU 12 DISP TO TYPE OF DATA SET IN VTOC 228 * 17 PATCH COUNT (TIMES PROGRAM HAS BEEN PATCHED). * 
000011 111 PRINM EQU 17 DISP TO PART NOM IN THE VTOC 229 * 18-24 PROGRAM PART NUMBER. * 
OOO000F 112 SPTE EQU 15 NUMBER SECTORS/TRACK 230 * 25-31 PROGRAM EC NUMBER. * 
000000 113 PRC1IA EQU 000 ADDR 1ST PROC1 SECTOR 231 * *x 
0003FC 114 PRC2A FOU 1020 START ADDRESS FOR PROCESSORS 232 OO a loki ok Gio OO IO i OI GOO III III III I I IORI IOI GK ak ak ak 
OOOT4A 115 VTOCA EQU 330 ADDR 1ST VTOC SECTOR 233 * * 
000168 116 EVTOC EQU 360 ADDR LAST VTOC SECTOR+1 234 * THE FOLLOWING IS THE METHOD OF RECORD NUMBERING: * 
OOO8AB 117 LDSST EQU 2219 ADDR LAST SECTOR ON DISKETTE 235 * * 
090168 118 FDSST EQU 360 ADDR 1ST DATA SECTOR 236 * ALL RECORDS ARE GIVEN A UNIQUE NOMBER 0-2309. NUMBERING a 
000020 119 LVTE EQU 32 LENGTH IN BYTES OF A VTOC ENTRY 237 * STARTS AT CYLINDER 0, TRACK O, RECORD 1 (0) AND GOES * 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
238 * TO CYLINDER 76, TRACK RECORD 15 2309 SEQUENCING * 001886 355 DSCID EQU * 
239 * GOES FROM TRACK 0 Poco 15 TO TRACK (4° R ELORD 1 THEN TO * 001886 4524 1A5C 356 MVA SDCB,R5 ADDR READ SECTOR ID DCB 
240 * THE NEXT CoL DER TRACK O. * 00188A S5O00B 357 SK1 GO ISSUE READ 
541 * x 35.8 kok kok oko roi ko lok ioioioigiok gol ok ia GOI I IIG OR IO I IOI gi kak i kak ii ike a oak ae ie 
202 OO OR OOOO I I I IOI IGG IRR I IOI GIGI IG dG kk a ak ik ak: ac 359 * * 
2.0 oOo IO I IR i I I I I ak kok tak kote ak kk ak ke akc ke ake ake ake ae ake ica ake of a ke ak ak akc ake ake afc akc ake a akc ak a : THE FOLLOWING ROUTINE IS ENTERED TO VERIFY A TRACK. : 
* * 
oie * THE FOLLOWING IS THE FORMAT OF A DATASET CONTAINING A * JOD AK Hem He oe ake ec ake ake ae he ake ae he oe ae ah ae fe ca ah akc hc cafe af ae ae ofc ae fe akc ic ae ae ae ake ade a fe ac ake ae ae ae ae ake ae afc afc af af ae ake age ae ake ake ae ae ae ae a ai ak ae a afc ake 
247 * PROGRAM. * 00188C 363 DVERF EQU * 
a8 S §01890 #008 ro 3é3 ame ts tone GO TSSUn THE VERIFY. 
* * 
223 * Bike? meCk OEOr PROC nay * 366 OOO OR IO GORI GOI GIO GI IIE IG IG IOI OI IG loti iciok kaka kak. kaka seek ak 
251 * BYTES * 367 * * 
952 * O- 1 #$\LENGTH OF PROGRAM IN BYTES. * 368 * THE FOLLOWING ROUTINE IS ENTERED TO FORMAT A TRACK * 
253 * 2- 3 ADDRESS PROGRAM IS TO START EXECUTION AT. * 369 * WITH ZERO'S DATA. * 
254 * ue 5 NOMBER DATA SECTORS IN DATASET. * 370 * * 
955 * 6- 9 RESERVED. * 37771 OR rok oR hoki i iok iodo kim iGO gio I Gig gk iok kok igi kok gaia ake akoakoke sk ake ake af ake steak ake ait ake ak ake a ake ake ate af ae ake ae ae ake 
256 * 10- 11 ADDRESS OF 1ST DATA WORD-MUST BE AN EVEN ADDRESS. * 001892 372 DFORM EQU * 
257 * 12- 13 NUMBER DATA WORDS IN RECORD. * 001892 4524 1A4UC 373 MVA FDCB, R5 ADDR FORMAT DCB 
258 * 14-239 113 DATA WORD-OBJECT MODULE. ok 001896 5005 374 S GO ISSUE THE FORMAT, 
959 * 240-255 RELOCATION FLAGS. * 375 lok iolok ioigiok loi oii gm i igg ok io IO Iii III i IR IG ROI ak liek ie ate ake aie ak teak ae ak ale ake ate ake ak 
260 * * 376 * * 
261 * REMAINING SECTORS OF PROGRAM * 377 * THE FOLLOWING ROUTINE IS ENTERED TO DO A READ FROM * 
262 * BYTES * 378 * A DISKETTE INTO A BUFFER. * 
263 * 0- 1 ADDRESS OF 1ST DATA WORD-MUST BE AN EVEW ADDRESS. * 379 * * 
264 * 2- 3 NUMBER DATA WORDS IN RECORD. x 380 koko ok ok io lok lok ioioioigioi i iiokicigigioi iio kak ok kak igiiiokiotoiioioiokakak ak iakoakoake ak aio ake ake ste ik ake ak 
265 * 4-239 118 DATA WORDS-OBJECT MODULE. * 001898 381 DREAD EQU K 
266 * 240-255 RELOCATION FLAGS. * 001898 4524 1A2C 382 MVA RDCB, R5 ADDR READ DCB 
267 * BIT 0 IS RELOCATION FLAG FOR 1ST DATA WORD. * 00189C 5002 383 J DSK O ISSUE READ 
268 * BIT 1 FOR 2ND DATA WORD ETC..... x 3385 ook oR lok OK giao folk gigi igi iO iOIOi GOI I I I iO i iai kik kak kkk iegok ik kak ake ake ie afc ae ake ate ake ake ae ae 
269 * * 386 * * 
270 * BIT ON INDICATES DATA WORD IS RELOCATABLE. * 387 * THE FOLLOWING ROUTINE IS ENTERED TO DO A WRITE TO * 
271 : OFF INDICATES ABSOLUTE. j 328 2 A DISKETTE FROM A BUFFER. . 
279 OOOO IOI III OR GI IGIGIGIOIGIO IGG I III III I kk ak ak ak akik ak ak ak ak ak ake af 390 * FROM THE LABEL DSK10 ON IS A COMMON ROUTINE TO SET UP THE * 
975 ooo og OR IO ig IG II GIO IGIOI IO I II III I I I IK kak kia ake ak 391 * DCBS AND ISSUE THE IO COMMAND TO THE DISKETTE. IT ALSO CHECKS * 
276 * * 392 * THE CONDITION CODE AFTER THE I/0 AND DOES ERROR RECOVERY. * 
277 * NAME FINDS * 393 * * 
278 * * 39.4 oO ok I i ioio koi GI I IOI ORG i ioi i aiak i ick kali fe ak ake ak ake ata ake ake ak afaik ak ate ake ake a ae 
279 * PURPOSE TO FIND A DATA SET NAME IN THE VTOC oe 00189E 395 DWRIT EQU * 
280 * * 00189E 4524 1A3C 396 MVA WRDCB, R5 ADDR WRITE DCB 
281 * METHOD THE DATA SET NAME REQUESTED IS COMPARED WITH ENTRIES * 0018A2 397 DSK10 EOQU * 
282 * PARA LIST IS COMPARED WITH ENTRIES IN THE VTOC. * QO018A2 4020 ADE TA1IC 398 MVA SEDCB,SEID2 ADDR OF THE IDCB 
283 * IN THE THE VTOC. CONTROL WILL BE RETURNED WITH * 0018A8 399 DSK11 EQU * 
284 * THE FOLLOWING REGISTERS SET WHEN THIS ROUTINE * 00O18A8 6808 1IA3A 400 MVW eee RO ADD DISKETTE BUFFER 
285 * IS COMPLETED. * OO18AC 6DOD 1A26 4o1 MVW wW6 SET CHAIN ADDR IN SEEK DCB 
286 * x 0018B0 8828 1AEC 1AEA 402 MVW Rasen DKSV RESTORE POINTER 
287 * RO=ADDR OF CORE LOCATION OF VTOC ENTRY OR NEXT * 0018B6 8828 1834 1B4u8 403 MVW REYCT DKRTY GET THE RETRY COUNT 
288 * AVAILABLE ADDR IF NOT FOUND. * OO18BC 4028 1AEA C000 YO4 STM KSV SAVE REGS 
289 * R1=QUE BLOCK ADDR xx 0018C2 680C 1AE4 405 Io Regpk PREPARE DISKETTE 
290 * R2=HEADER ADDR OF DIAGNOSTIC PROGRAM * 0018C6 6F05 18FA 406 BNCC SEVEN, 1S25 J-NO DISKETTE ERROR 
291 * R3=ADDR OF DIAGNOSTIC PROGRAM PARA LIST * QO18CA 407 DSK20 zou * 
292 * R4U=SECTOR ADDR OF VTOC WHERE DATA SET NAME * QO18CA 4029 1B4U8 FFFF &O8 AWL M1,DKRTY DECREMENT RETRY COUNT 
293 * FOUND OR WHERE SLOT AVAILABLE IF NOT FOUND. * 0018D0 1214 409 JN ts55 RETURN IF UNRECOVERABLE ERROR 
294 * R5=0 IF FOUND, 1 IF NOT FOUND, 2 IF DISKETTE ERROR * Q0018D2 9F3A 410 JAL SEEK,R7 GO SET UP DCBS 
295 * u& IF VToOc fy ULL xk 0018D4 4624 1TADC G11 MVA SEIDB, R6 IDCB TO START SEEK 
296 * R6=NEXT AVAIL DATA SECTOR ADDR IF NOT FOUND OR * 0018D8 412 IS11 EQU * 
336 EOE OF DATA SFT IF FOUND. * 0018D8 68CC 0000 413 cay Ey fF ISSUE I/O TO DISKETTE 
299 * CONDITION CODE UPON RETURN WILL REFLECT CONTENTS x Q0018DC 6F14 0248 415 BEC SEVEN, SCHED* GO TO SCHED IF I/0 OK 
300 * OF XR5. * 0018E0 680C 1AE8 416 Age DKRST ISSUE RESET 
301 * ok 0018 E4 680C 1AE4 417 ro DSKPR ISSUE PREPARE 
302 eR ORO II II IOI I III I I IK 2k ak ak ok ok ak 2k kk ake ke kek ake ake ake ake ake ake kak ak ak ie ake oe af ae a ake ak OO018E8 6F05 18FA 418 BNCC SEVEN,1S25 BR IF IN ERROR 
001836 303 FINDS zee * Q018EC OFOO 419 MVBI ZERO, R7 INITIALIZE R7 TO O 
001836 6F0OD 1830 304 MVW R7,SAVE7 SAVE RETURN ADDR QOO018EE 420 1S22 Egy * 
OO183A 4424 O14A 305 MVWI vT6CA, RY ADDR 1ST VTOC SECTOR QOO18EE 68CC 0000 421 I Ane RE-ISSUE THE I0 
00183E 6B08 1B4C 306 MVW FINDE,R3 ADR OF DATA SET NAME 0OO018F2 6A05 18DC 422 BNCC WO,1S12 IF NOT CC = BUSY AFTER RESET THEN 
001842 307 FN10 FOU * W23 * GO TEST FOR CC 7 
001842 9F2A 308 JAL DREAD,R7 READ A VTOC SECTOR 0018 F6 0701 W“2u ABI ONE,R7 ELSE ADD TO RETRY/DELAY COUNTER 
001844 =75A7 309 IR R5,R5 SET CONDITION CODES 0018F8 11FA 425 JP IS2? LOOP UNTIL OVERFLOW OR CC NOT 
001846 1814 310 JINZ FN4O BR IF DISKETTE ERROR OO018FA 426 IS25 Hou * 
001848 OFO8 311 MVBI NDFPS,R7 NUMBER DATA SET DEFINED/RECORD OO18FA 4020 1AFE 0002 427 MVWI TWO,DKRS SET DISKETTE ERROR CODE 
O0O184A 312 FN20 FOU * 001900 4020 1C66 1908 428 MVA DSK{IT, DKIT RESTORE ORIGINAL INTERRUPT ADR 
00184A E500 313 MVWS See} e BS SEE IF END OF ENTRIES IN VTOC 001906 4020 1C68 190E 429 MVA DSKIT,DKIII RESTORE ORIGINAL INTERRUPT ADR 
00184C 1014 314 JZ N5 IF SO BR 00190C 5005 430 J DKOY RETURN TO CALLING RIN 
0O0184GE F604 315 MVWS (RO EOE) , R6 SAVE EOF 32 oo IOI io tok ior loki ioiaioi ioioi kok igi iak kak kak ake ak akake ake ak aki ke ak ak ok ake ake ake ake ake ake ake ake ae ake ate keke ake ake ak ake ake akc ate ake ak 
001850 7044 316 MVW 0, 82 ADR OF HEX PID 433 * * 
001852 0201 317 ABI ONE R2 BUMP PAST 1ST CHAR Y“34 * THE FOLLOWING ROUTINE HANDLES INTERRUPTS FROM THE DISKETTE. * 
001854 ODO4 318 MVBI FOUR,RS BYTE COUNT 435 * " 
001856 319 FN25 EOD * 036 OOK OG iO IO IOI I IOI OI I ROI I i i iO I I I i kiki kok ak ki ak ak akakkeakok ak afk afe ake akc af ie ate ake age ac ak ae ae 
001856 8397 320 CB f22) ee (B2)* SEE IF DATA SET NAME IS THE SAME 001908 437 DSKIT Eee * 
001858 1802 321 JNE N3 B-NO NOT THIS ONE Q00190E 6B05 191C 438 BNCC THREE, DK10 BR IF NOT DEVICE END INT 
00185A BDFD 322 JCT FN25,R5 FINISH THE DATA SET NAME 001912 4020 TAFE 00900 439 MVWI ZERO, HKRS SET DISKETTE I/0 OK 
00185C SQ0E 323 J FN7O 001918 GQ4O DKOY EQU * 
001858 324 FN30 EQU a 001918 GO2A 1AEA Hut LMB DKSV RET TO RTN REQUESTING 1/0 
00185E 0020 325 ABI LVTE, RO UPDATE TO NEXT ENTRY 00191C 442 DK10 EQU * 
001860 6B08 1B4C 326 MVW FINDE R3 RESET NAME POINTER 00191C 6C14 0248 443 BCC FOUR, SCHED* DISKETTE JUST BECAME READY 
001864 BFF2 327 CT FN20 &7 LOOP THROU ALL DATA SETS ON SECT 001920 4624 1AE0O Quy MVA CALIB R6 GET RECALIBRATE ADR 
001866 0401 328 BI ONE fy UPDATE TO NEXT SECTOR 001924 4020 1C66 1932 “us MVA DK12, DKIT NEW INTERRUPT ae 
001868 7C06 0168 329 CWI EVTOC, R4 SEE IF END OF YVTOC 00192A 4020 1C68 1932 Gu6 MVA DK12,DKIII NEW INTERROPT AD 
00186C 12FA 330 JN FN10 IF SO BR 001930 50D3 yy J Is RE-CALIBRATE whee DISKETTE 
QO0186E ODO04 331 MVBI FOUR, RS SET NO ROOM ON DISKETTE ERROR CODE 001932 448 DK12 EQU * 
001870 332 FN4YO EQU * 001932 6B05 18FA 449g BNCC THREE, IS25 UNRECOVERABLE ERROR 
001870 75A7 333 I R5,R5 SET INDICATORS TO REFLECT XR5 001936 4020 1C66 190E 450 MVA DSKIT, DKITI RESTORE ORIGINAL INTERRUPT ADR 
001872 6812 1830 334 B ie RETURN TO CALLING RTN 00193C 4020 1C68 190E 451 MVA DSKIT, DKIII RESTORE ORIGINAL INTERRUPT ADR 
001876 335 FNSO EQU * 001942 CF25 1BUA 452 MVWZ PCYLA,R7 HOME POSITION 
001876 0OD01 336 MVBI ONE SET DATA SET NOT FOUND 001946 50C1 453 J DSK20 REISSUE THE I/0 
001878 SOFB 337 J eHEh GO RETURN 455 oo OOK iio okoioigioiotokoiok ick kok loki ic ieiaioioiaie ak ake ak ake ke ak ke ike ake ake kak ake ak ake ake agate ake ake ate ak ake ake ate ae ake af ae ake 
OO187A 338 FN7O EQU * 456 * 
00187A ODOO 339 BI ZERO,R5 SET DATA SET FOUND G57 * THE FOLLOWING ROUTINE BUILDS AND SETS THE SEEK CONTROL * 
00187C SOFI 340 J FN4O GO RETURN 458 * WORD IN THE SEEK DCB AND THE HEAD/SECT AND N/CYL WORDS * 
3.02 OOo oO IG IG OI IO II IOI IOI GI I ROI IG II ik i kok kako iI I I kai ak ik ak ake ake ak ak ake ake ak ak ake afk ak 459 * IN READ, WRITE AND VERIFY DCBS. 1K 
343 * * 460 * x 
344 * THE FOLLOWING ROUTINE IS ENTERED TO RECALIBRATE. * 461 * THE SECTOR ADDR IS PASSED TO THIS ROUTINE IN XRY AND IT * 
45 * * 462 * COMPUTES THE SEEK INFORMATION FROM WHERE THE HEAD x 
U6 OO oR iO OO IO IOIGIIOIOCIIOI IOI III II II IOI I I I ik i i II I aR I i a kf ke akc a ake ake ke ake ake ake aie ak aie ake ake u63 * PRESENTLY IS. me 
O0187E 347 VERCB Eou * YoU x * 
001878 4020 1ADE 1A0C 308 MVA RECAL, SEID2 SET UP A RECALIBRATE L6G 5 5 2 ie aie ate ae ae ai a ae ak ae aii aki kkk aiokaak kok kok i gage ik ia keikeaiiak kaikki iaioioiaio icici iicatogic ake kok akokok aioe afc teak age eae ade 
001884 5011 349 GO ISSUE THE COMMAND 001948 466 SEEK EQU * 
350 oko oO loko OO oI I OI IO IO IOI IOI II RI IOI III IOI I II II IR IIR IOI K ake aka ik ake ake ake aie ak ake ake ake ake ake ake 001948 6E08 IBUA u67 NVW PCYLA. R6 GET WHERE HEAD PRESENTLY AT 
351 * " 00194C 6C08 AFC 468 MVW 8 860DKRG, ku GET SECTOR # GOING TO 
324 2 THE FOLLOWING ROUTINE IS ENTERED TO READ A SECTOR ID. : oo4eea Se 1BUE 183 aaa SCIZE,R0 . WHAT IS THE SECTOR SIZE 
354 oO tok ok iio oi ogi OO GIO IORI iO i I i i IOI i kaki ak lala ke kote ak ake ak ake ak ak ak 001956 EC22 1829 471 DB SPTA, RU C0 BUTE TRACK # (428 BYTE SECTOR) 
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TMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT S 
00269E 4324 3526 1741 MVR © CNDTB, R3 GET THE ADR TABLE 
Se a SaaS aeee eee 0026A2 7268 1742 AW ADD THE COMMAND DISPLACEMENT 
002590 90C0 Vez] 4S r'dbco: 026A4 CBCO 1743 mvW CRS) ORB MOVE THE WORD FROM THE TABLE 
002502 24DA 1628 COPM1 DC -A(COBM) O026R4 CBCO ITA ave fr 3\° B-TO THE COPRECT ROUTINE 
002504 Ic94 1659 DC A (BUFAD) Noses 174% INTTD FOU 
002506 900) 1630 Sa 0026A8 4924 1810 1746 MYA OP OPTION WORD 2 
Oo ee ne ce oUe ee ae: AEN OO26AC 48C8 1747 TBTV (RO qetenn) INVERT THE BIT 
00259A 00CO 16 32 DC —_ x OOo" Oo2bac. Aace ie : if RETURN TO INTT ee ere ere 
00250C eet ese COPM2 Be : BUFAD) 1750 penne eens tL eeeeetereeeeeeeneet tt) eet feet teereeeee * : 
902510 050% 1635 DC pe 1752 * INVALID REQUEST MESSAGE : 
009514 3889 1637 DC 2 UTL29 ' \ye2 EEE TT Te LE OEE TET OTT PETE T er ET ree eT TTT 
002516 C1D5E840D4D6D9C54 1638 NEXT DC C'ANY MORE TO DO USING THE SANE FROM AND TO DEVICE ADD pebead 1786 INVAL EQU. * 
COZagR DICSEZEZUDCSE2Z5D6 = 16 39 pee Roe 0026B0 4724 1C6E 1757 MVA INCMD,R7 GET MESSAGE TO OUTPUT 
002554 age ae ce ee 0056B4 €000 1758 svc OUT 7 OUTPUT THE MESSAGE 
005828 COEZUORICBCSUOESD reas COPN pe Se haat TO DISKETTE LOADED?* 0026B6 5OBE 1789 a acl aaa a 
005574 3884 1644 DC A fobr2a . 1762 * SUBROUTINE TO REQUEST DATA SET NAME, : 
009586 ooeg 16446 pe DC X*00C0 * ards Wen EE Te ane ee eee ET re nr nner Rr re ner ree rrr re eee rer 
002584 3885 1608 ae a {br 25} 005688 6FOD 1D1E ey POPSN aoa RSAV_ SAVE THE RETURN ADR 
00258C ESE3D6C340C6E4D3D 1o49 ADRIC DC C{VTOC FULL-~DATA SET NOT ADDED * Roeene. Gaon oeac 1788 AVA RDRPTA RT ADR OF THE OUTIN 
D028Ke 258C Wcee ne. TERRE AGT 00262 224 1DUC 1770 MVA  DSNM1,R2 ADR OF THE BUPFER ows 
9 058K6 3 OSR eer ADRP1 Be : BST 0026C6 5045 1772 AAAEUREE NESE SS NHRAR SHEAR ELE LLSES EEA SL ALENS ESAS LASSE SEE ER SELES ESTE ET 
009584 0008 1655 DC A (4 1774 * SUBROUTINE TO REQUEST START ADDRESS. : 
009588 387 165) De , u L16) 4552 Seki ARAN ERERD KRELEKGRALRKAEA ARETE ERK R EERE WEED RE OR CRESS RERRER ES EN ERK He x 
: | ea * 
peta’ 5050" Eee ernenre ts eee fee Be AiO) Beasts oe 00368 6FOD 1D1E 1779 OTA AGW ORT,RSAY SAVE THE RETURN ADR 
93809 80500 een os Be REE eg805 eget ey NS Suerte” iehogT nae ounr®™ 
093802 ay 1862 be A {256 O056D2 224 3AC6 1782 MVA © BUF2, R2 ADR OF THE BUFFER 
0025D4 F2F5C1FO 1663 DC CtSenbe c65n 1783 5 REO1 RETURN TO CALLING ROUTINE 
CO25D8 9009 4665 ibe a eke) yueene USS EEN GSESSEARESENSEAUES LEN LEP ESE ELE EHALSES EASE ERES SES SRE A LEREL YEE EEE EES 
A (256 ; 
8025p FOFSC IF 1 1668 De ch25n hs 1789 * SUBROUTINE TO REQUEST ENDING ADDRESS. : 
002582 0500 1668 Dc A (3328) 15 EE PE eT OP men an ore arte DT eres creer reer tree 
: * 
003888 5000. 1675 BE RBC Tay O026Re nop apt ey OE WD ey cnene SAVE THE RETURN ADR 
Rasen 8186 er) AER, Bases Sige 383 ee Rk Ratbgetn bEprond ott 
Biases SRR ie BE REE $08) 2881 ace i rue ADEE FETCHELENE, noon rue 
0055 Fa P2FOC 1F2 seac ae C120821 OUPSES. 2Ue2 1797 SEESLANS SELES EOLSEAA CSAS ERY SS CALAEAE EEE EES SHO RET LES E ESSE MELE SESE S HOH 
D095FA 3C00 1677 DC A (13360) 1739 * SUBROUTINE TO REQUEST WORD COUNT FOR PATCHING. 2 
003600 iSre 1679 DC A(BRC2N ee FOE Ne TEE POT a Pn Fe eee nn rer rr rr rn 
3 
803604 FSFYCIF2 1681 DE GN SUASF O026E8 a. aDIE 1803 ROCNT EQU BSAY. SAYE THE RETURN ADR 
002608 00990 peas Dee | EAR E EA? 0026FC 4724 3948 1805 HVA ADRES ADR OF THE OUTIN 
002604 0600 1683 ee 05680 6001 1806 sve OUTIN’ ISSUE THE OUTIN 
OC F2FSC1F3 1684 DC C1 253) 1807 J REQ1 RETURN TO CALLING ROUTINE 
002610 03PC” 1685 DC a Fe Se} OREO 20er TV BOO ek ook ok ak ak ak ak ak ok ok ak OLENA LSS UREA AREAS SC RER LAT OE EEA ESSE EEE TASES ORS EEE 
A€15360 * 
ROSCA: “coca ees 1638 De ChSUA3t isii * SUBROUTINE TO REQUEST DATA FOR PATCHING. . 
803644 0680 1689 De X'0680" 1843 ee Nee Sate eee NCR nn eT Rn CEE re rr rrr rt 
#3800! * 
002620 0000, 1691 DC X PRCTA) OOSGF4 6FOD 1D1F 181g eT AGW | ORT,PSAV SAVE THE RETURN ADR 
002622 £00 1692 De A (7680) O026F8 4724 39AA 1817 MVA  ADRPB,R7 ADR OF THE OUTIN 
002624 F3F4UFOFO 1693 DC C*3400 0026FC 6001 1818 SVC OUTIN TSSUE THE OUTIN 
002628 0000 1694 DC A (ERC IA) 0026FE CF24 39AE 1819 CW ADR8,R7 WAS TOO MANY BYTES ENTERED 
OO0262A 1E00 1695 DC R (7680) 002702 1702 1820 JLLT RopT 4 J-NO 
90262C COFEXCIFO eas Mee pean 002704 6FO8 39AE 1821 MVW  ADR8,R7 GET THE NUMBER REQUESTED 
NOSCSe 4eOn 1698 DE oA 7EBOF” Ob 3708 1853 OTT eet CONE, RT SHIFT RIGHT FOR WORD COUNT 
002632 1500 1900 a a aa hosape aren Neoa ape B7 , Re SAVE THE WORD COUNT 
1702 * 00270C 4020 1c94 3ACé 1825 NVA BOF2, BUFAD 
TO THIS UTILITY. : RETURN TO CALLING ROUTINE 
1703 : ee rm = beetle. 201" 1826 Pr rrres HEAT EALSASANTAESAESE SENSE ESSER ESE R ELE REL ESE EE EEE HERE ES © 
VT OY 5 2K 2 2k ie ak ake ok i 2 2h 2 a aK i 2 oi oi kc 2 ok fc ke 2 2 2 ai 2 ok af a kc af eof 2c ac oe oe ae afc ak afc ae ae ae ake afc ake ak ake ae ake ake age af ake fe afc ake ae ae akc ok kc akc 1828 * EQUEST STARTING CYLINDER * 
002634 1705 INIT EQU * ude 1829 * SUBROUTINE TO R : . 
005634 4Oou 1346 ea 1409 HVA ORTH?! RO A ag GET THE. OPTION WORD 4a34 Shs cuuh cui aswae iaw eeu ke Cokes ees 5 ee 
00263E 4808 1708 TBT Sits MEtGHT) IS THE MENU REQUIRED hesaat 1833 REQCY EQU. * 
002640 101F 1792 he Cates 002714 6FOD 1D1E 1834 MVW  R7,RSAV SAVE THE RETURN ADR 
002642 1719 INITA EOU N 002718 4724 395E 1835 MVA  ADRP9,R7 ADR OF THE OUTIN 
002642 C825 3876 1711 MVWZ WRD1 RO CLEAR THE WORD COUNT 00271C 6001 1836 SVC OUTIN TSSUF THE OUTT 
002646 C825 1€36 W742 MYWZ SECTR, RO CLEAR aHE THD 00271E 6D08 3ACé 1837 HVW © BUF2, RS ADR OF THE BUFFER | ws 
O0e4% £052 IDOE 1744 MVBZ NORTY RO CLEAR THE THE 002722 5017 re eapass ceuaa ee salad delat died eledachlaelededebiahaethiaheai 
MVBZ MORE, RO CLEAR THE IN 
902686 6025 iDdc 1146 NVBZ ASKOT, RO T/ON THE THD, 1842 * SUBROUTINE TO REQUEST HEAD (0 OR 1). : 
rat 8950 3uRC Perr i718 MV aT Se TON THE JI er ger eeaa oak eee oi a ee 
002666 8828 1D3E 3872 1719 MVW 8 ©DEC10, VHDL1 RESTORE THE CONSTANT eee 1846 REQHD EQU. + 
90266C C020 3552 1320 HVE (Eee u ore fencen: ee ee 002724 6FOD 1D1E 1847 RUW RT }RSAY SAVE THE RETURN ADR 
i 184 
BOse72 WI2n 3ACE 1752 MVA © BUF2, £1 ADDRESS OF LINE Boause. e0b4 fe 1849 SVC OUTIN’ ISSUE THE OUTIN 
002676 282c 1723 FEN RCs (R1) ENGLER OPTTOR 00272 6D08 3ACé6 1850 MVW ©- BUF2, BS ADR OF THE BUFFER 
724 3730 1724 MVA = VTRLH, 7 BN AER OE TENS SoG -kRE 1851 J RETURN TO CALLING ROUTINE 
00267C 6004 1725 SVC OUTIN’ 002732 SO0OF 1853 SASETET TESTE eee eee eet Oe ee Tee ATR ee Se Re NCS SORE eee TAT ee eee 
1726 J INITC 1geq * 
apo ena 3007 1727 INITB EQU * 1855 * SUBROUTINE TO REQUEST SECTOR. i 
002680 OEOE 1728 MVBI FORTN, R6 NUMBER OF MESSAGES TO PRINT iste * eeoenae 
002682 4724 35B8 1729 MVA VIRLS, R7 COMMUNICATIONS 1857 AO OO OGIO OIG IGIO IO GI ISI ROKER I kK 
002686 1730 INIB EU 002734 1859 REQSC EQU- * : 
31 SVC OUT 1860 MVW R7,RSAV SAVE THE RETURN ADR 
002688 0704 1732 Bea, OUR RT PRINT ALL MESSRGRS 003738 G724 3078 1861 MVA  ADRPB,R7 ADR OF THE OUTIN 
00268A BEFD 1733 JCT  INIB,R6 PRINT ALL MESSAGES EE ae ee ee Bye | OUTTA ISSUE THE OUTIN 
00268C 50DA 1734 J INITA RETURN TO ENTER OPTIONS Osos conn. aaee 1ee4 VN | BUFD RS ADR OF THE BUFFER ws 
00568E 802B 3AC6 3540 1736 eRe CB. auggence IS THIS A VALID COMMAND 002742 5007 rece HOHE SHO OUR SC EHS OSI TO On Eo OE EAA III AAI A 
737 JLLT INVA J-NO | + * 
005696 724R 1738 W CLEAR Re 1868 * SUBROUTINE TO REQUEST NUMBER SECTORS. : 
002698 C220 3AC6 1739 MV B BufD. R2 GET THE COMMAND | aron eee 
00269C 3209 1740 SLL ONE, R2 DOU 
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1870 ee ee ea re te ar eee ee Te ee ee 002872 76C7 1989 IR BS a SET THE INDICATORS 
002744 1872 REQNS EQU 002874 1803 1990 INZ RQST2 J-IF OVER 16K STORAGE 
002744 6FOD 1D1E 1873 RSAV SAVE THE RETURN ADR 002876 8028 1DO0D 1C97 1994 MVB 9 HEXFF, RELOD RELOAD UTILITY INDICATOR 
002748 4724 3990 1874 MVA ADREC, R7 ADR OF THE OUTIN 00287C 1992 ROST2 EOU 
00274C 6001 875 SVC ISSUE THE OUTIN 00287C 6812 1IC7E 1993 RISA VS RETURN TO SENDER 
00274E 6DO8 3AC6 1876 MVW BUF2, NS GET THE WORD OF DATA 002880 1994 DEVAA EQU % 
902752 1877 REQ1 £EOQU 002880 7F06 0001 1995 CWI ONE, R7 WAS ONE BYTE ENTERED 
002752 6812 1IDIE 1878 RSAV* RETURN TO CALLING ROUTINE 002884 1003 1996 JE DEVAB J-YES 
1880 PSS Set S tS SSE SSS SSS SSS SSS SS SSS SSS SCS SSE SSS SS SSS SL SSeS SSC SSeS SE SHRTS Se sees eee ese 002886 C320 28BF 1997 MVB DEVOO+ONE, R3 IS THIS A 0 ENTRY 
1881 * * 00288A 1803 1998 JINZ DEVAC J~NO 
1882 * SUBROUTINE TO REQUEST DATA SET NAME AND STARTING ADR. * 00288C 1999 DEVAB EOU * 
1883 * * 00288C 6B08 28BE 2000 MVW  DEVOO,R3 GET THE DATA 
988 U kak kk sok kok ok kkk kkk ik dak kik kok kok ak kok i aka io ikea ake aka ak ake ake ake afc ake ate ake ake afc ake ake ade ake aie ake ate ae ak ake ae ake akc ake af afc ak ak ake ate 002890 3342 2001 SRL EIGHT, R3 POSITION THE BITS 
002756 1886 RQTYP EQU * 002892 2002 DEVAC EQU * 
902756 6FOD 1C7E 1887 MVW R7,R7SAV SAVE THE RETURN ADDRESS 002892 7B64 FFOO 2003 RBTWI HFFOO,R3 CLEAR BITS 0-7 
00275A 9OFAE 1888 JAL Rgbsn R7 RE UEST THE DATA SET NAME 002896 C725 347D 2004 MVBZ DEVIC,R7 IS THE INDICATOR SET 
00275C 6A0D 1C7C 1889 MVW = RD, ROSAV E THE BUFFER a 00289A 1010 2905 JZ DEVAE J-NO 
002760 6A0D 1cC80 1890 MVW R2,PCSAV Saye THE BUFFER 00289C 7EC1 0002 2006 AWI TWO, RG6 BUMP THE RETURN ADDRESS 
002764 G6A0D 1B4C 1891 MV W R2,FINDE PUT INTO R7 OF Q P CER 0028A0 C328 1C55 2007 MVB  R3,REDID#ONE PUT THE ADR IN THE READ ID 
002768 6F03 1836 1892 BAL FINDS, R7 GO FIND IT 0028A4 680C 1C€54 2008 aK) REHTD ISSUE THE READ ID 
00276C 6801 2090 1893 BNZ COM33 B-IF DISKETTE ERROR 0OO28A8 4O2F 1C56 0126 2009 CWI PELID,REDID+TWO IS IT A 4966 
002770 4124 25cc¢ 1894 MVA  DATSN,R1 TARGET AREA OO28AE 1006 2010 JE DEVAE J-YES 
002774 OFOS 1895 MVBI FIVE, &7 NUM OF BYTES TO COMPARE 0028B0 402F 1C56 0106 2011 CWI IBIID,REDID+THO Is IT A 4964 
002776 6A08 1C7C 1896 MVW  ROSAY,R2 SET R2 TO POINT TO THE NAME 0028B6 1002 2012 JE DEVAE J-yYeS 
OO277A 897 I05 FOU * 0028B8 7EC2 0002 2013 SWI TWO, R6 ADJUST THE RETURN POINTER 
00277A 9183 1898 Cc (BN) « (R2) DO THEY COMPARE 0028BC 2014 DEVAE FOU. * 
00277C 1003 1899 JE 10 J-YES 0028BC 5600 2015 BXYS (R6) , RETURN 
00277E 0108 1900 ABL FIGHT, R1 BUMP THE ADDRESS 0028BE 0000 2016 DEVOO DC A (¥=*) 
002780 BFFC sog5 JCT I05,R7 CHECK ALL ENTRIES 2018 ae she ate ae ae she afe af ah ic aie a he ie ake ak oie Me fe oe aie afc ac ae afc ate afc akc ate afc ae ake afc she ale afe aie age ate ak ate he afc ae afc ofc ake afc ake abe afc ake ote oe ake she ade ake ah ake ae fc ae she ake ate ae ake ae fe ake 
002782 5009 902 J 115 J-NO 2019 * * 
002784 1903 110 EFQU * 2020 * NAME DIPVT % 
002784 8028 1D0D 1C36 1904 MVB HEXFF,SECTR T/ON THE IND 2021 * 
00278A C425 1BUE 1905 MVBZ SCIZE,R4 TI 128 BYTE SECTOR 2022 * PURPOSE DISPLAY THE INFORMATION CONTAINED IN THE VTOC FOR * 
00278E 8828 1B52 1A38 1906 MVW  SMWDC,RDW7 128 eae FOR THE DCB 2023 * A DATA SET * 
002794 5003 1907 J 117 J-NO 2024 * * 
002796 1908 115 Fou * 2025 * METHOD THE VTOC SECTORS ARE SEARCHED FOR THE NAME ENTERED. x 
002796 OFO8 1909 MVBI EIGHT,R7 BYTES TO COMPARE 2026 * % 
002798 1910 I16 FOU * 2027 * CALLING SEQUENCE * 
002798 9183 1911 CD (RI) « (R2) COMPARE THE BYTES 2028 * * 
00279A 1804 1912 JNE 20 NO COMPARE 2029 * 00 * 
00279C 1913 117  EOU * 2030 * x 
00279C 8028 1DOD 1C37 1914 MVB HEXFF,FXSEC IND A FIXED SECTOR DATA SET 2031 * WHERE 00 IS THE COMMAND CODE TO DISPLAY DATA SET * 
0027A2 5002 1915 J 125 2032 * * 
OO27A4 1916 120 FOU * 2033 * IF A 00 IS ENTFRED INSTEAD OF THE DATA SET NAME * 
OO27A4 0108 1917 ABI FEIGHT,R1 BUMP THE POINTER 2034 * STATUS OF ALL DATA SETS IN THE VTOC ARE be SPLAYED a 
0027A6 BFFS 1918 JCT 116,R7 2035 * x 
0027A8 1919 125  EQU * 2036 * THE FORMAT OF THE PRINTOUT IS AS FOLLOWS me 
0027A8 690D 1¢7C 1920 MVW R1,ROSAV SAVE R1 2037 * a 
OO27AC EUO3 1921 MVWS (RO, BOE),RU- SAVE BEGINNING SECTOR ADR 2038 * c 4A S CoH S T PC PART NUM  EC/REA x 
OO27AE 6E0D 1D1A 1922 MVW R6,SEOE SAVE THE ENDING ADDRESS 2039 * DATASN XX xX XX XX XX xXX T XX XXXXXX¥XK KXXXKXXX a 
0027B2 9FS8A 1923 JAL  ROSTA,R7 REQUEST THE START ADR 2040 * * 
0027B4 8A08 1D16 1924 MVW {R2) / SADR SAVE THE START ADDRESS 2041 * WHERE XX IS A NUMBERICAL NUMBER * 
0027B8 1303 1925 JEV 45 TEST FOR EVEN 2042 * C STANDS FOR CYLINDER (0-76) * 
0027BA A829 1D14 1D16 1926 SW ONES,SADR ADJUST IF BYTE BOUNDRY 2043 * H STANDS FOR HEAD (0 O * 
0027C0 1997 145 FOU) * 2044 * S STANDS FOR SECTOR (1-15 * 
0027C0 6812 1C7E 1928 B R7SAV* RETURN TO CALLING ROUTINE 2045 * fT WILL BE P FOR PROGRAM DATA SET AND D FOR % 
1930 oe ae she afc ak ate fc he ae ake ae oye af of he akc ake ak ae aie ae afc afc af afc ok afc ake ake ake ae afc afc afe of ale aie ofc ake ake se af ate ae ake ah afc ake afc oe ofe ak afe ae ake aie ak ate afe afc afc afc ake afe afc ake ake ok ak ate akc 2046 %* ORDINARY DATA SET * 
1931 * X* 2047 * * 
1932 * SUBROUTINE TO REQUEST SYSTEM DISKETTE AND CONNECT THE DEVICE. * 2048 * THE FIRST EXTENT BEING THE BEGINNING OF EXTENT (BOE) % 
1933 * a 2049 * THE SECOND EXTENT BEING THE END OF EXTENT (EOE) % 
1934 We MC Re ae aie ake fk ae ae fe ake ae ok aie ote ak ake ok ofc ade he he oe ake ok aft of fe ake akc ok afc ate oe af af ate ae ake ae ote ake ae aie ae ake of afe ake he ke ake ake afc fe he afc he ae aie he ae afc ake ae ake fc ake ake ake ae 2050 rd x 
0027Cc4 1936 RQST EQU R7 2951 a ste af aie ae ae fe af afe afe ahe fe ae oe a ake 3c ate ah af ae ae fe ake ae ake ah aie afc ate afc a ofc aie ae afc he afc ak ake she ae af ae afc ie af ak afc ak afc oie ate ate ae ate fe ade ae ae a ode ae ae ole fe af ofc ae ae ae 
0027C4 6FOD 1C7E 1937 MVW P7SAV SAVE THE RETURN ADDRESS 0028C0 2093 DIPVT EU * 
0027C8 4020 1A38 0100 1938 MVWI Padse RDU7 256 BYTE SECTOR 0028C0 8028 1D0D 1D0C 54 MVB HEXFF,ASKOQT ASK FOR DEVICE ADDRESS 
OO0O27CE 4020 1A3A 39C6 1939 MVA BUF1, RDW8 DATA ADDRESS 0028C6 6F03 27C4 2055 BAL ROST,&7 SET UP THE DISKETTE ADDRESS 
0027D4 C720 1D0C 1940 MVB ASKO®, R7 IS THE INDICATOR ON O028CA 6F03 26B8 2056 BAL RODS, R7 SEE IF THERF IS A SPECIFIC REQ 
0027D8 100A 1941 IZ ROSTB J-NO 0028CE 4724 35B4 2057 MVA  VTRL6,R7 PRINT VTOC DISPLAY HEADER 
OO27DA 1942 RQST3 EQU 0028D2 6000 2058 SVC OUT, MESSAGE 
QOO27DA 4724 3804 1943 MVA DEVRO,R7 ADDRESS OF CONTROL BLOCK 0028D4 7264 2059 MVW SAVE ADR FOR DISKETTE FIND RTN 
0027DE 6001 1944 SVC OUTIN 0028D6 820B 3542 2060 CB (3) EBCDI SFE IF DISPLAY ALL IS REQUESTED 
0027E0 8028 1D0D 347D 1945 MVB HEXFF,DEVIC SET THE INDICATOR OO28DA 1817 2061 JNE DIpo§g J~NO 
0027E6 6E03 2880 1946 BAL  DEVAA,R6 GET THE DEVICE ADDRESS 0028DC 4724 35B0 2062 MVA VTRLY,RT7 MSG ADR 
OO27EA 50F7 1947 J ROST3. 0028E0 6000 2063 SVC ouT PRINT THE MSG 
0OO27EC 5002 1948 J ROSTC O0O28E2 4424 014A 2064 MVWI VTOCA,R4 ADDR 1ST ar Tote SECTOR 
OO27EE 1949 ROSTB EQU- * 0028E6 2065 DIP0O1 FOU * 
OO27FE C320 0233 1950 MVB  DKAD,R3 GET THE SYSTEM DISKETTE ADR 0028E6 6F03 1898 2066 BAL DREAD, R7 READ VTOC SECTOR 
O027F2 1951 ROSTC EQU- * OO28EA 6801 2090 2067 BNZ  COM33 BR IF DISKETTE ERROR 
0027F2 7B64 FFOO 1952 RBTWL HFF RESET HIGH ORDER BYTE O0028EE OEO8 2068 MVBI NDFPS, R6 NUMBER ENTRIES/SECTOR 
0027F6 C328 1C4uD 1953 MVB BEF OR ADDF ONE DISKETTE ADDRESS 0028F0 2069 DIPO2 EFQU 
OO27FA C328 1C55 1954 MVB R3,REDID+tONE DISKETTE ADDRESS 0028F0 £700 2079 MVWS (RO) «7 ANY MORE ENTRIES IN VTOC 
OO27FE C328 1814 1955 MVB  R3,DEVAD DISKETTE ADDRESS 0028F2 1006 2071 JZ ‘) IF NOT BR 
002802 8828 1824 1816 1956 MVW  DEVGN,DVASG T/ON THE ASSIGN BIT 0028F4 9F15 2072 JAL DIPO5,R7 GO PRINT ENTRY 
002808 6F03 3128 1957 BAL WALT, &7 RESET THE DEVICE 0028F6 BEFC 2073 JcT DIPO2 R6 OOP THRU ENTIRE SECTOR 
00280C 4724 1c60 1958 MVA cCTLBK,R7 ADR OF CONTROL BLOCK 0028F8 0401 2074 ABL ONE, RG PDATE VTOCA SECTOR ADDR 
002810 6016 1959 SVC REQSD REQUEST SYSTEM DISKETTE USE OO28FA 7C06 0168 2075 cwr EVTOG, Ra SEE IF READ ENTIRE VTOC 
002812 680C 1C54 1960 IO REDID GET THE READ ID OO28FE 18F3 2076 INE DIPO1 IF NOT BR 
002816 4O2F 1C56 0126 1961 CWI PELID,REDID+TWO IS IT A 4966 002900 2077 DIPO3 FOU. * 
00281C 1813 1962 JNE ROQST1 J-NO 002900 4724 35aAC 2078 MVA VTRL1, R7 PRINT STATUS COMPLETE 
00281E 8028 1D0D 1C52 1963 MVB HEXFF,DKAD3 SET AN INDICATOR 002904 6000 2079 SVC OUT 
002824 8028 1B56 1C4C 1964 MVB  HXHUN,DKADD POSITION 1 002906 6802 2014 2080 B COM29 RESTART PGM 
00282A C720 1p0C 1965 MVB  ASKOT,R7 IS THE INDICATOR ON OO290A 2081 DIPOW FOU 
00282F 100A 1966 JZ ROST1 J-NO 00290A 6BOD 1B4uC 2082 MVW R3 FINDE SFT ADR OF DATA SET NAME IN LSB 
002830 4724 35A2 1967 MVA DKPOS,R7 ADDRESS OF CONTROL BLOCK 00290EF 6F03 1836 2083 BAL FINDS,R7 BLOCK-GO FIND DATA SET 
002834 6001 1968 SVC OUTIN 002912 6801 2090 2084 BNZ COM33° B-IF DISKETTE ERROR 
002836 6£03 2880 1969 BAL DEVAA,R6 GET THE DEVICE ADDRESS 002916 4724 35B0 2085 MVA  VTRLG,R7 MSG ADR 
00283A 73A4 1970 MVW R3,R5 DATA ADDRESS 00291A 6000 2086 Svc OUT PRINT THE MSG 
00283C 6F03 33FA 1971 BAL  DTOH,R7 CONVERT 00291C 9FO01 2087 JAL DIPO5,R7 GO PRINT STATUS 
002840 C528 1c4Cc 1972 MVB R5, DKADD SAVE THE DATA 00291E 50F0 2088 J DIPO3 GO RETURN TO OVERLAY LOADER 
002844 1973 ROST1 EQU 002920 2089 DIPOS EQU 
002844 802B 0233 1C4D 1974 CB DKAD, DKADD+ONE IS If THE IPL DEVICE 002920 6F0D 1C7C 2090 MVW R7 ROSAV SAVE RETURN ADDR 
00284A 1807 1975 INE ROSTG J-NO 002924 46324 3752 2091 MVA PLINE, R3 ADDR MFSSAGE BUILDING 
00284C 6F08 1C4Cc 1976 MV DKADD,R7 DEVICE DATA 002928 90c4 2092 MVD RO) (R3) ¢ MOVE DATA SET NAME INTO PRINT 
002850 4FO7 1977 TBT (R7 SEVEN) IS THE POSITION ONE IND ON 00292A E702 2093 MVWS (RO,FOU yt RT BUFFER 
002852 1003 1978 IZ RostG sfc J-NO 00292C CFCB8 2094 MVW 7, (R3) 
002854 8028 1D0D 1c99 1979 MVB HEXFF,IPLDV IT IS THE IPL DEVICE 00292E O3FC 2095 ABI M4 OR3 ADJUST POINTER 
00285A 1980 ROSTG EQU- * 002930 930B 1c44 2096 CD (B3) SCRAT TS THIS A SCRATCH ENTRY 
00285A 4724 1C64 1981 MVA  DKCIC,R7 ADR OF CONTROL BLOCK 002934 101B 2097 JE TPoé J-YES 
00285F 6014 1982 SVC CICB CONNECT WITH THE MONITOR 002936 0308 2098 ABI EIGHT, UPDATE MESSAGE ADDR 
002860 6F03 1BC8 1983 BAL DTYPE,R7 SET UP THE ROUTINES TO USE 002938 £103 2099 MVWS (RO, BO OF} R1 GET BOE 
002864 C725 1D51 1984 MVBZ OVRLY,R7 IS THE INDICATOR ON 00293A 9F21 2100 JAL D1rp67 GO CONVERT BOE 
002868 1009 1985 JZ R ST2" J-NO 00293c 8194 2101 MVWS (0 OE} , R41 GET EOE 
OO286A 76CA 1986 SW CLEAR R6 00293E O1FF 2102 ABT 1,81 GFT ACTUAL EOE 
00286C 6F08 0230 1987 MVW BEERS R7 HIGHEST ADDRESSABLE WORD 002940 9FIE 2103 JAL D1rbO7,R7 GO CONVERT EOE 
002870 3615 1988 SLLD TWO,R6 POSITION THE BITS 002942 7024 2104 MVW RO,R1 CHANGE REGS 
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81EF0 00 2105 MVB cele e DSTYP) » (R3) DATA SET TYPE 002A36 6DOF 1D3A 2221 SW SCTRT,R5 DISPL FROM START OF SECT DATA 
0302 2106 ABIL BUMP MESSAGE POINTER OO2A3A 71A8 2222 AW R1,R5 THIS IS THE FIRST WORD 
4764 0010 2107 MVA (Blee RECHT) , R7 PATCH COUNT ADR OO2A3C 5005 2223 J ppb09 GO AROUND IF NOT 
6FOD 1C8C 2108 MVW PC2 PUT ADR IN CONTROL BLOCK 002A3E 2224 DDPO8 EQU * 
6BO0D 1C8E 2109 MVW R3, eees CONVERT TO ADR OO2Z2A3E 4724 37A8 2225 MVA PSD6,R7 READY TO PRINT ERROR MSG 
4724 1C8A 2110 MVA CVPC1, R7 CONTROL BLOCK OO2A42 6000 2226 SVC OUT PRINT THE MESSAGE 
601A 2111 SVC HTOF CONVERT HEX TO EBCDIC OO2Z2A44 6802 2014 2227 B COM29 B-PRINT THE ENTER OPTION MESSAGE 
0305 2112 ABI FIVE, a UPDATE MESSAGE AREA POINTER 002A48 2228 DDPOY EQU - 
OFO08 2113 MVBI EIGHT NUM OF BYTES IN PART NOM OO2A48 F307 2229 CBI SEVEN, R3 SEE IF THE END 
4u564 0011 2114 MVA R1 PETNN) . 25 ADR OF DATA TO MOVE 2230 * IN PRINT LINE 
2D6u 2115 MVFN feos ot MOVE THE DATA OO2A4A 180C 2231 JNE DDP10 IF NOT GO ON 
9301 2116 ABI £4 POSITION MSG AREA POINTER 2232 * 
OFO7 2117 MV BI SEVEN, R7 NUM OF BYTES IN E.C. NUMBER 2233 * SET UP THE ADDRESS FIELD OF PRINT LINE 
2D 64 2118 MVFN (B5) ¢ (R3) MOVE THF F.C. NUMBER 2234 * 
2119 DIPO6 EQU OO2A4C 4724 39BA 2235 MVA HTACA GFT THE ADR OF THE CONTROL BLOCK 
0020 212C ABIL LYTE RO UPDATE TO NEXT ENTRY 092850 4020 39BC 1D16 2236 MVA SADR ee GET THE ADR OF DATA TO CONVERT 
680D 1c70 9121 MVW 0.5 SAVE RO 0902456 4020 39BE 3752 2237 MVA PLING, HTACC GET THE ADR OF THE BUFFER 
6FO03 2B20 2122 BAL PUTIT, R7 PRINT MESSAGE QO2A5C 601A 2238 SVC HTOE GO CONVERT 
6808 1C70 2123 MVW SAV. RO RESTORE RO OO2ZASE 8028 1D0OD 1C4A 2239 MVB HEXFF,BFIUFL T/ON PRINT IND 
6812 1C7C 2124 B ROSAV* RETURN TO CALLING RTN 2240 * 
2125 DIPO7T EQU 2241 * PUT IN THE DATA 
E922 182A 2126 DB — R1 GET RECORD 2242 * 
1304 2127 JEV prpos BP IF HFAD 0 OO2A64 2243 DDP10 EQU 
80E8 3543 0004 2128 MVB TTY1, (R23, FOUR) MOVE IN HEAD 1 Q9O02A64 4724 3752 2244 MVA PLINE, R7 WHERE TO PUT 
5003 2129 J prpo0§ 002A68 73E8 2245 AW ADD IN DISP 
2139 DIPOS8 EQU x OO2A6A 8D18 1C70 2246 MVW i: SAV SAVE THE WORD TO CONVERT 
80E8 3542 0004 2131 MVB EBCDI, (R3, FOUR) MOVE IN HEAD 0 OO2ZA6E 4020 39BC 1C70 2247 MVA HTACB PUT ADR IN CTRL BLK 
2132 DIPOS EU 002A74 6FOD 39BE 2248 MVW ftTacc ADR OF BUFFER 
T2AU 2133 MVW 29 R5 SAVE RECORD NUMBER QOO2A78 4724 39BA 2249 MVA nEKCR, R7 ADR OF CONTROL BLOCK 
310A 2134 SRL ONE, R1 SHIFT OUT HEAD OO2A7C 601A 2250 SVC CONVERT FOR PRINTING 
F922 1C96 2135 DB TENS. R1 GET UNITS OO2ZA7TE 0307 2251 ABI SVEN POINT THRU PRINT LINE 
81E4 3542 2136 MVB R1, EBCDI » (R3)+ MOVE IN TENS FOR CYL 002A80 4029 1D16 0002 2252 AWI TWO, NBR INCREMENT START ADDRESS AS 
82E0 3542 2137 MVB R2,EBCDI), (R3 MOVE IN UNITS FOR CYL 2253 * THE CURRENT ADDRESS 
7524 2138 MVW R5.°1 GET RECORD NUMBER 002A86 882B 1D16 1D18 2254 CW SADR, ENADR SEE IF DONE WITH THE DUMP 
0101 3139 ABI ONE RV CHANGE T0 1-16 OO2ZA8C 1C03 2255 JGE DDpP14 GO AROUND IF NOT 
F922 1C€96 3740 DB TENS. R OO2A8E 9FU4B 2256 JAL PUTIT,R7 PRINT LINE 
81E8 3542 0006 2141 MVB Ry, EBCDr) , R3, r SIX), MOVE IN TENS POSTION FOR RECORD 002A90 6802 2F64 2257 B DSP15 
82F8 3542 0007 2142 MVB R2, EBCDI R3,SEVEN) NOUMBER-UNITS 002A94 2258 DDP11 EQU 
030A 2143 ABI EN, R3 UPDATE BUFFER ADDR O0O2A94 F33C 2259 CBI SIXTY, R3 SEE IF LINE BUILT 
5700 2744 BXS (R7) RETURN TO CALLING RTN 002A96 1401 2260 JLT DDP12 IF NOT GO AROUND 
27146 OOO Oo IO IO IOI I I ICICI I I ik a I ak kok ae ak ak ake ake ake ak ac 002A98 9F43 2261 JAL eee tent ELSE GO AND PRINT IT 
7147 * * OO2A9A 882B 1D3C 1D16 2262 DDP12 CW SCEND, SADR SEE IF DONE WITH THIS SECTOR 
2148 * NAME DDPGM * OO2AA0 14D3 2203 JLT DDPO9 IF NOT DO MORE 
34189 * * OO2AA2 C720 1C37 2264 MVB FXSEC,R7 IS THIS A FIXED SECTOR DATA SET 
2150 * PURPOSE DISPLAY PROGRAM DATA SETS * OO2AA6 182E 2265 JNZ DDP 16 J-YES 
2151 * * OO2ZAA8 0401 2266 ABI ONE, RY POINT SECTOR @ UP 
2152 * METHOD THE PROGRAM AS IT RESIDES ON DISKETTE * OO2AAA CC24 DIA 2267 CW SEOF RY SEE IF DONE 
9153 * TS PRINTED OUT IN A DUMP-LIKE FORMAT. * OO2AAE 1c01 2268 JGE DDP13 IF YES PRINT ERROR MESSAGE 
2154 x * 2269 * AND RETURN 
2155 * CALLING SEQUENCE: * QO2ZABO 5093 2279 J DDP02 READ IN THE NEXT SECTOR 
2156 * * 002AB2 2271 DDP13 EQU 
2157 * 01 * OO2AB2 4724 37BC 2272 MVA PSD7,R7 ADR OF MSG 
2158 * * OO2AB6 6000 2273 SVC OUT OUT PUT THE MSG 
2159 * NOTE... IF A DS IS ENCOUNTERED, THE LAST VALID * OO2AB8 6802 2014 2274 B COM29 B-ENTER OPTIONS 
2160 * DATA WILL BE PRINTED. THIS WILL FOLLOW * 002ABC 2275 DDP14 EOQU * 
2161 * WITH THE NEW ADDRESS STARTING THE NEXT * OC2ABC 6908 1C7C 2276 MVW ROSAV,R1 GET THE POINTER 
3162 * LINE. * O0O2ACO 892B 0004 1D16 2277 CW (R1, FOUR) ,SADR CHECK START ADR 
5463 & * OO2AC6 149A 2278 JLT pDpdpb B-IF LOW 
2164 2 OO I ORO OO I OR OGIO GI CIO OI OI I iG GK RK IOI iC a aka 2k OO2AC8 892B 0004 1D18 2279 CW (R1,FOUR) ,ENADR CHECK IF TO HIGH 
3166 DDPGM EQU. * OO2ACE 14B7 2280 JLT pppds B-IF TOO HI 
6FO3 27c4 2167 BAL ROST,R7 SET UP THE DISKETTE ADDRESS QO2AD0 892B 0006 1D18 2281 CW (R1,SIX), ENADR CHECK END ADR 
6F03 2756 2168 BAL ROTYb,R7 REQUEST THE DATA SET NAME QOO2AD6 1DED 2282 JcT DDP43 J-TOO HIGH 
6FO03 26D8 2169 BAL ROSTE,RT7 GET THE END ADR QOO2AD8 6A28 0004 2283 MVW (Rie FOUR 7 R2 START ADR OF SECTOR 
8A08 1D18 2170 MVW (R2 fNADR SAVE THE ENDING DUME ADDRESS QOO2ADC 8928 0004 1D3C 2284 MVW R1, FOUR) ,SCEND DUMMY FND ADR 
1303 2171 JEV DPO 4 TEST FOR EVEN ADDRESS OO2AE2 2285 DDP15 EQU * 
A828 1D14 1D18 2172 AW ONES, ENADR ADJUST THE ENDING ADDRESS TO QO2AE2 TOA4 2286 MVW RO,R5 PUT THE BUFFER START IN RS 
9173 * BYTE BOUNDRY OO2ZAE4 6DOE 1D16 2287 AW SADR. RS BUMP BY START ADR 
217% DDPO1 EQU * ‘OO2ZAE8 7A41 0100 2288 AWI TWO5S6,R2 END OF SECT 
4724 1D42 2175 MVA DPMSG,R7 ADR OF DSN NAME MSG QOO2ZAEC CA24 1D16 2289 CW SADR, R2 IS THE DATA oTN THIS SECTOR 
6000 2176 SVC OUT PRINT THE LINE OO2AFO 1509 2290 JLE ppp16 J-NO 
24977 * OO2ZAF2 6DOF 1D3C 2291 SW SCEND,F5 REDUCE BY SECTOR SIZE 
2178 * FIND THE FIRST SECTOR WITH THE DESIRED DATA OO2AF6 6A0D 1D3C 2292 MVW R2 SCEND NEW SECTOR END 
5179 * OO2AFA C720 1C4UA 2293 MVB BFIFL, R7 IS THE IND ON 
2180 DDPO2 FOU * OO2AFE 18A4 2294 INZ DDPO09 ITF ON DON'T CHANGE R3 
6F03 1898 2181 BAL DREAD, R7 READ IN THE 1ST SECTOR 002B00 0QBO7 2295 MVBI SEVEN, R3 SET R 
6801 2090 2182 BNZ OM3 B-IF DISKFTTE FRROR OO2B02 50A2 2296 J DDPOY9 GET THE DATA INTO THE BUFFER 
C720 1€37 2183 MVB FXSEC,R7 IS THE IND ON 002B04 2297 DDP16 EQU 
6801 2ABC 9184 BNZ DP1 B-YES OO2B04 6A0D 1D3C 2298 MVW R2,SCEND SAVE THE NEW END OF SECTOR 
C725 1CB9 2185 MVBZ FSTSW,R7 IS THIS THE FIRST SECTOR QO2B08 401 2299 ABI ONE, R4& BUMP THE SECTOR NUMBER 
100C 2186 IZ DDPO IF NO THEN GO AROUND OO2BOA C720 1BUE 2300 MVB SCIZE,R7 WHAT IS THE SECTOR SIZE 
7024 9187 MVW RO, R1 OO2BO0E 1801 2301 INZ DDP17 J-IF SECTOR SIZE OF 256 
7921 OOOA 2188 AWL VHDLG, R1 SET R1 TO SECTOR DATA ADR 002B10 9401 2302 ABI ONE, R4 BUMP THE SECTOR NUMBER 
CF50 2189 MVW ies R7 SET R7 TO SECTOR DATA VALUE 002B12 2303 DDP17 EQU al 
CF24 1D16 2190 CW ADR,R? IS THE START ADR LOW 002B12 6F03 1898 2304 BAL DREAD,R7 READ THE NEXT SECTOR 
1607 2191 JLLE pppes J-NO 002B16 6801 2090 2305 BNZ COM33 B-IF DISKETTE ERROR 
2192 DDP03 FOU * OO2B1A 6A08 1D3C 2306 MVW SCEND,R2 GET THF SECTOR END ADR 
4724 3794 2193 MVA PSD5,R7 ADR OF MSG OO2BIE 5081 2307 J DDP 
6000 2194 SVC out OUT PUT THE MSG 2309 he he af af ae ake aie ae ae oe ae akc afc 3k ak ake she af ak ae ac ak a af afc ake ake ac afc ake afc afc ake akc ake akc afc afc ake ake akc akc aie ae af ok akc aie ake aie ake aie ake ak afaik ok akc ak aki ake ake ag ak ake ake ake ade ake ake 
6802 2014 2195 B COM29 B-ENTER OPTIONS 2310 * * 
2196 DDPOY Fou * 2311 * PRINT THE LINE * 
CF10 2197 MVW (RO) +,R7 GET DATA START ADR IF NOT 1ST SECT 2312 * * 
7024 2198 MVW RO, 1 ADR OF DATA START IN BOFFER 2313 4K KK oR ok ok ok kkk kK kkk kk i kok kok kak tok ia iiik kok lok kk kick kokokok aki leak ak akaak ajc doi aie ake aie akeak akc akc ake ake ake ok ake 
2199 pDPOS EoOU a 002B20 2314 PUTIT EQU * 
CE4O 2200 MVW (R1) ,R6 GET THE NUMBER OF DATA WORDS CO02B20 6F0OD 1DIE 2315 MVW R7,RSAV SAVE RETURN ADDRESS 
3609 2201 SLL ONE R6 DOUBLE FOR WORD ENTRIES OO2B24 4324 3752 2316 MVA PLINE R3 SET R3 FOR THE PROGRAMMER!'S CONSOLE 
77C8 2202 AW R7. RE END OF DATA ON SECTOR 002B28 4724 3748 2317 MVA PSD1,87 GET ane MESSAGE 
0102 2203 ABI TWO, R1 ADD T0 GET TO DATA Q0O02B2C 6000 2318 SVC OUT PRINT 
6FOD 1D3A 2204 MVW R7, SCTRT THIS IS THE START OF DATA THIS SECT OO02B2E C020 3552 2319 MVB EBCBK,RO pee TO BLANK OUT LINE 
6EO0D 1D3C 2205 MVW R6,SCEND THIS IS THE END OF DATA THIS SECT 002B32 OQF3C 2320 MVBI SIXTY,R7 LENGTH 
C720 1C4UA 2206 MVB BFIFL, R7 IS THE PRINT IND ON 002B34 4124 3752 2321 MVA PLINE,R1 ADDRESS OF LINE 
1801 2207 INZ DDPO6 J-YES DON'T CHANGE R3 002B38 282Cc 2322 FFN RQ, (R ) BLANK IT OUT 
OBO7 2208 MVBI SEVEN, R3 R3 = BEGIN PRINT VALUE 002B3A C020 3552 2323 MVB EBCBK, 0 READY TO BLANK OUT LINE 
2309 pDP06 EQU * OO2B3E C325 1C4A 2324 MVBZ BFI1FL, R3 CLEAR THE PRINT IND 
CE24 1D16 2210 C SADR ,R6 TS THE DATA IN THIS SECTOR 0O2B42 O0BO7 2325 MVBI SEVEN, R3 SET UP 1ST DISP 
1E05 2211 JLGT DDPO J-YES--GO PROCESS 002B44 6F03 20BA 2326 BAL TPGMB,R7 TEST THE TERMINATE BIT 
0401 2212 ABT ONE, RY& UPDATE TO NEXT SECTOR OO2B48 6812 IDIE 2327 AV* RETURN TO CALLER 
Cc2u IDA 2213 CW SEOE RY SEE IF START POINTER TOO HIGH 2329 ate He ake ae ate ah ae ake ote fe afc ake ake af ake abe ae af ote she fe ake ade aie ode ake ate ae ae ake ake ae ae ake ake ake ake ake ake ake ake akc ofc ake aie ake ake aha age ake ate ade ake ake ae ae ade ake afc age ae age ae ake aie ak ake ak akc ak 
1007 2244 JE DDPO § IF NOT GO ON THRU SECTOR 2330 * * 
50D3 2215 : J DDPO02 GET THE NEXT SECTOR ae : NAME PDPGM 
2217 * TEST THE SECTOR 2333 * PURPOSE THIS ROUTINE IS USED TO MAKE PERMANENT PATCHES * 
2218 * 2334 * TO A PROGRAM DATA SET. * 
2219 DDPOT EQU * 2335 * *x 
6DO8 1D16 2220 MVW SADR, R5 GET START ADR 2336 * METHOD THE VTOC IS SEARCHED FOR THE PROG NAME REQUEST- * 
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2337 * ED. WHEN FOUND THE PROGRAM DATA FILE IS * 002C64 6F03 1836 2451 BAL  FINDS,R7 GO FIND THE VTOC ENTRY 
2338 * READ UNTIL IT FINDS THE SECTOR WHERE THE * 002C68 6801 2090 2452 BNZ COM33 B-IF ERROR 
2339 * PATCH IS TO BE MADE AND ALTERS If WITH THE * 002C6C 7024 2453 MVW  RO,R1 GET A USABLE REGISTER 
3340 * NEW DATA, x N02C6E C760 0010 2454 MVB (Ri, PTCNT) ,R7 GET THE PATCH COUNT 
5341 * 002C72 0701 2455 ABY ONE, BUMP THE COUNT 
9342 * PATCHING AN AREA DEFINED BY A DS OR ADDING TO THE x 002C74 C768 0010 2456 MVB R7, (R1 PTCNT) PUT THE COUNT IN THE VTOC 
2343 * END OF A PROGRAM IS NOT ALLOWED. PATCH ADDRESS * 002C78 6F03 189E 2457 BAL DWRIT,&7 REWRITE THE VTOC 
2344 * MUST BF EVEN. * 002C7C 6801 2090 2458 BNZ 433 B-IF ERROR 
2345 * * 002C80 2459 PDP12 EQU * 
2346 * CALLING SEQUENCE x 002C80 4724 356A 2460 MVA PARLS,R7 ADDR PARA LIST 
2347 * 2 002c84 2461 PDP13 EQU * 
2348 * 02 * 002C84 6000 2462 Svc. OUT PRINT MESSAGF 
2349 * * 002C86 6802 2014 2463 B COH29 RESTART PGM 
9350 [OOO iO II I IOI IOI IG IOI III IG Ia ICI I ICI Ck a ak ak IK ac OO2C8A 2464 PDP14u EQU * 
002BuC 2351 PDPGM FOU * 002C8A C720 1CB9 2465 MVB  FSTSW,RT7 IS THE IND ON 
OO2B4UC 6F03 2352 BAL ST,RT7 SET UP THE DISKETTE ADDRESS 002C8E 6801 29FC 2466 BNZ DDP03 B-YES 
002B50 6F03 2353 BAL ROTYf,R7 GET THE DATA SET NAME 002C92 4724 3870 2467 MVA ERG,RT7 ADDR PAPA LIST 
002B54 7624 2354 MVW 3s RO R11 SAVE THE EOE 002€C96 SOF6 2468 a PDP43 GO PRINT 
002B56 6F03 2355 BAL ROCNT, R7 REQUEST THE WORD COUNT 2470 HK ai ake ae He ake ae ak fe afk aie af ak ie ake ah ake ie fe he afc af ake 9k fe ake ake ake af ae akc ofc afc oie aie ade af a af ok ake ak ae afc ake akc ate ake of aft ake ale ak akc ae ate ak ake afc aft ak ae she ate ate akc ae ate ate ate 
0O2B5A 6808 2356 MVW WDCNT,RE GET THE WORD COUNT 2471 * 
O02B5E 6800 2357 BZ PFP14 OUTPUT THE SYNTAX MSG 24072 * NAME DSPDS sk 
002B62 3609 2358 SLL ONE, R6 POSITION FOR BYTE COUNT 2473 * 2x 
O02B64 60D 2359 MVW  R6,ADRE NUM OF WORDS FOR OUTIN 2474 * PURPOSE THIS ROUTINE IS USED TO DISPLAY A SECTOR(S). * 
002B68 360A 2360 SRL ONE, RE CHANGE BYTE COUNT TO WORD COUNT 2475 * x 
OO2B6A 6F03 2361 BAL RODAT,R7 REQUEST THE DATA FOR THE PATCH 2476 * METHOD THE SELECTED SECTOR(S) ARE READ INTO STG AND * 
O0O2B6E CE2F 2362 SW R6,WDENT REDUCE TOTAL WORDS 2477 * PRINTED OUT IN HEX. x 
002B72 742A 2363 SW R4,R1 LENGTH OF PROG DATA SET 2478 * ok 
002B74 2364 PDPO1 EQU) * 2479 * CALLING SEQUENCE x 
002B74 6C0OD 2365 MVW RG,SAV2 SAVE SECTOR ADDR 2480 * x 
002B78 6F03 2366 BAL DREAD, R7 GO READ A SECTOR 2481 * 03 Kk 
002B7C 6801 2367 BNZ COM33 BR IF DISKETTE ERROR 24u82 * 1k 
002B80 680D 2368 MV@ RO FXSAV SAVE RO 2483 Pe SPSS SSS SESE SSS SS SSL SSS SSS LS SS SSS SS SPST eS SSeS Se SPST SSS STS Ste TS eS SSS SCS SL. 2 3 
002B84 C720 2369 MVB  ¥FXSEC,R7 IS THIS A FIXED SECTOR 002C98 2484 DSPDS FOU) * 
002B88 1013 2370 IZ PDPO3 J-NO 002C98 6F03 27C4 2485 BAL ROQST,R7 SET UP THE DISKETTE ADDRESS 
OO2B8A C725 2371 MVBZ FSTSW,R7 IS THE FIRST TIME SW ON 002C9C 6FO3 2774 2486 BAL REOCY,R7 REQUEST THE CYLINDER NUM 
0OO2B8E 100B 2372 JZ PDPO2 J-NO 002CA0 6F03 2E6E 2487 BAL CTB,R9 CHANGE TO BINARY 
002B90 6A08 2373 MVW = ROSAAV,, R2 GET THE ADR FOR START 002CA4 6D0D 1c74 2488 MVW = RS, SAV11 SAVE THE DECIMAL NUMBER 
002B94 0204 2374 ABI ¥FOUR,&2 BUMP ADR OO2CA8 4020 1C9A OO7F 2489 MVGI ONE27, ENDDP SET NOM OF WORDS FOR A SECTOR 
002B96 8A08 2375 MVW (R2) BF1 SAVE THE START ADR OO2CAE ED21 1828 2490 MB SPT2, 85 MULTIPLY BY 30 
002B9A 4020 2376 MVHI ONE24, BF SAVE THE START ADR 002CB2 6DO0D 3874 2491 MVW  ©RS,SEC1 SAVE 
OO2BA0 4224 2377 MVA BF120,R2 GET THE ADR 002CB6 1805 2492 INZ  DSPO1 J-IF NOT CYL 0 
OO2BA4 5008 2378 J PDPO4 002CB8 C725 1B4E 2493 MVBZ SCIZE,R7 SET 128 BYTE SECTOR 
002BA6 2379 PDPO2 EFQU- * 002CBC 4020 1C9R 003F 2494 MVWI SIXT3~+ ENDDP SET 128 WORD COUNT 
OO2BA6 4224 2380 MVA  BF120,R2 GET THE ADR 002cc2 2495 DSPO1 FOU * 
OO2BAA 4089 2381 AWI TWO56, (R THIS IS THE END ADR 002CC2 6F03 2724 2496 BAL REQHD,R7 REQUEST THE HEAD O OR 1 
OO2BAE 5003 2382 J PDPOG 002CC6 6DOD 1Cc78 3497 MVW  3=6 RS, SAG? WAS 0 ENTERED 
002BB0 2383 PDPO3 FOU * 0O2CCA 1010 2498 IZ psbou J-YES 
002BB0 CA25 384 MVWZ VHDL1, R2 HEADER LENGTH OF 1ST SECTOR 002CCC A828 1826 3874 2499 AW SPT, SEC1 ADD 15 SECTORS 
OO2BB4 7048 2385 AW RO, R2 ADDR DATA WORD COUNT 002CD2 ¢C720 1c52 2500 MVB  DkAp3,R7 IS THE 4966 IND ON 
002BB6 2386 PDPOY EQU- * 002CD6 1804 2501 JNZ  DSPO2 -YES 
002BB6 6C08 2387 MVW  SADR,R4G ADDR TO PATCH 002CD8 4020 1B4E 1000 2502 MVWI ISCSZ,SCIZE SET 256 BYTE FOR 4964 
OO2BBA 6E0D 2388 MVW R6,SAVG SAVE NUMBER WORDS LEFT TO PATCH 002CDE 5003 2503 J DSPO 3 
OO2BBE CB80 2389 MVW (R2) R3 PROG ADDR OF DATA THIS SECTOR 002CE0 2504 DSPO2 FOU * 
O02BCO 738A 2390 SW R3,R4 SUBT ADDR OF DATA ON SECTOR 002CEO0 4020 1B4E 0100 2505 MVHI PSCSZ,SCIZE SET 256 BYTE FOR 4966 
002BC2 1263 2391 IN Ppb14 IF PATCH ADDR LESS THAN ADDR 002CE6 2506 DSP03 EQU. * 
- 2392 * DATA ON SECTOR-MUST HAVE TRIED 002CE6 4C20 1C9A OO7F 2507 MVWI ONE27,ENDDP SET WORD COUNT OF 127 
2393 * TO PATCH A DS AREA-ERROR 002CEC 2508 DSPOY £90 
OO2BC4 340A 2394 SRL  ONE,R4 CHANGE DISP TO WORD DISP O0O2CEC 6F03 2734 2509 BAL REQSC,R7 REQUEST THE STARTING SECTOR 
002BC6 7404 2395 MVW RU -RO SAVE DISP OO2CFO 6F03 2E6F 2510 BAL CTB.R9 CHANGE TO BINARY 
002BC8 CCA4 2396 cw (R2 TWO) , RU SEE IF PATCH ON THIS SECTOR OO2CF4 6DOD 1C76 2511 MVW RS,SAV3 SAVE THE DECIMAL NUMBER 
002BCC 120B 2397 JN ppo7 BR IF ON THIS SECTOR OO2CF8 6800 2F9A 2512 BZ PFP12 ZERO SECTOR IS ERROR 
0O2BCE 2398 PDPOS zOg OO2CFC CD2E 3874 2513 AW R5,SEC1 NOW WE HAVE THE START 
OO2BCE 6C08 2399 MVW 8 SAV2,R4 GET SECTOR ADDR TO READ 002D00 4029 3874 FFFF 2574 AWI M1,SEC1 REDUCE COUNT 
CO2BD2 0401 2400 ABT NE,R UPDATE SECTOR ADDR TO READ 002D06 6F03 2744 2515 BAL REONS,R7 REQUEST THE NUMBER OF SECTORS 
OO2BD4 ¢720 2401 MVB  SCIZE,R7 IS THIS A 128 BYTE SECTOR OO2D0A 6F03 2E6E 2516 BAL CTB,R7 CHANGE TO BINARY 
002BD8 1801 2402 JNZ  PDPO6 J-N OO2D0E 6DOE 3874 2517 AW SECK, RS THIS IS THE END 
OO2BDA 0401 2403 ABI ONE, R4 ADD ONE MORE TO SECTOR NUMBER 002D12 6DOD 3878 2518 MVW se RS, SEc2 SAVE 
002BDC 9404 PDPOG EQ 002D16 882B 3874 3878 2519 CW sre1,SEC2 MAKE SURE DISP 2 > OR EQUAL 
OO2BDC C725 2405 MY¥BZ FSTSW,R7 ZERO THE IND 002D1C 6A00 2F9A 2520 BN PFP12 DISP 1-IF NOT BR 
002BR0 B9C9 2406 JCT PpDPOTRI GO READ NEXT SECTOR 002D20 2521 DSPOS EQU Xx 
09 2BE2 5053 2407 J PDP14 B-PRINT ERROR--CAN'T FIND PATCH AREA 002D20 680D ic7Cc 2522 MVW  RO,ROSAV SAVE THE REGISTER 
002BE4 2408 PDPO7 EQU- * 002D24 4024 3888 2523 MVA  DSGUA_RO ADR TO PUT THE CONVERTED DATA 
OO2BE4 7464 2409 MVW  86-R4, RB GET ADDR OF DATA TO PATCH 002D28 6908 1c74 2524 MVW SAV1,&1 GFT THE DATA TO CONV 
002BE6 3309 2410 SLL One R3 DOUBLE FOR BYTE ADDRESS 002D2C #8922 1C96 2525 DB TENS, R14 GET THE TENS POSITION 
OO2BE8 6A0D 3411 MVH R2,RVSV2 SAVE R2 002D30 8124 3542 2526 MVB R1,BCDI) , (RO) + MOVE THE EBCDI FOULVALENT 
0O2BEC C720 2412 MVB FXSEC,R7 IS THIS A FIXED SECTOR 002D34 8220 3542 2527 MVB R2-,EBCDI), (RO MOVE THE EBCDI EQUIVALENT 
OO2BFO 1004 3413 JZ PDPOS J=-NO 002D38 4724 39c0 2528 MVA EDCV,R7 ADR OF THE CONTROL BLOCK 
OO2BF2 6A08 2414 MVW FXSAV,R2 GET THE BUFFER POINTER 002D3C 601A 2529 SVC HTOE CONVERT THE HEAD NUMBER 
OO2BF6 7A42 2415 SWI FOUR, R2 DUMMY UP THE POINTER OO2D3E 4024 3898 2530 MVA  DSG4&C,RO ADR TO PUT THE CONVERTED DATA 
OO2BFA 2416 PDPOS FOU * O0OO02D42 6908 1C76 2531 MVW SAV3, R81 GET THE DATA TO CONVERT 
OO2BFA 7268 2417 A R2,R3 ADD START ADDRESS 002D46 £922 1C96 2532 DB TENS, R1 GET THE TENS POSITION 
OOZ2BFC 6A08 2418 MVW  RVSV2,R2 RESTORE R2 OO2D4A 8124 3542 2533 MVB R1, &BCDI) , (RO) + MOVE THE EBCDI EQUIVALENT 
002C00 0304 2419 ABI FOUR, k3 BUMP BY CONSTANT OO2D4E 8220 3542 2534 MVB R2,EBCDT) , (RO MOVE THE EBCDI EQUIVALENT 
002C02 6£08 2420 MVW BUFAD,RE ADDRESS PATCH BUFFER 002D52 6808 1C7C 2535 MVW OSAV, RO RESTORE THE REGISTER 
002C06 8EC4 2421 MVW GRE) « (R3 MOVE IN PATCH DATA 002D56 4724 387C 2536 MVA DSRLUIR7 DSRA TO PRINT HEADER FOR EACH SECT 
002C08 6808 2422 MVW AVY. R6 RESTORE PATCH COUNT 002D5A 6000 2537 SVC OUT PRINT HEADER FOR THIS SECTOR 
002c0Cc 4629 2423 AWI TWO,BUFAD UPDATE ADDR OF PATCH DATA 002D5C 6C08 3874 2538 MVW  SEC1,R4 GET SECTOR DUMPING 
002C12 4029 2424 AWI TWO,SADR UPDATE ADDR TO PATCH 002D60 C720 1B4E 2539 MVB SCIZE,R7 IS THIS A 128 BYTE SECTOR 
002C18 0001 2435 ABI ONE, RO UPDATE DISP FOR NEXT PATCH 002D64 1808 2540 JNZ  DSP06 =-NO 
002C1A CB8A4 0002 2426 CW (R2 TWO) , RO SEE IF NEXT WORD ON THIS SECT 002D66 340A 2541 SRL ONE, R4 SHIFT OFF THE LOW ORDER BIT 
002C1E 100D 2497 JE pp9 IF NOT BR 002D68 3409 2542 SLL ONE.RG DOUBLE THE SECTOR NUMBER 
992c20 BECA 2428 JCT  PDPOG, RE IF NOT DONE WITH PATCH LOOP 002D6A C720 1CB9 2543 MVB FsTwW,R7 IS THIS THE FIRST PASS 
002C22 6808 1C9C 2439 MVW@ WDCNT,RG6 GET THE NOM OF WORDS TO INPUT 002D6E 1803 2544 JNZ  DSPO0E6 J-YES 
002C26 1009 2430 JZ PDPO9 J-IF ALL DONE 002D70 6F08 3874 2545 HVW SEC1,R7 IS THIS AN EVEN SECTOR 
002C 28 3909 431 SLL ONE, R6 POSITION FOR BYTE COUNT 002D74 1BO0D 2546 JNEV DSPO7 J-IF ODD SECTOR 
002C2A 6£E0D 2432 MVW R6,ADRES NUMBER OF BYTES TO INPUT 002D76 2547 DSPO6 EQU * 
O02C2E 6F03 2433 BAL RODAT, R7 ASK FOR THE REST OF PATCH 002D76 6F03 1898 2548 BAL  DREAD,R7 GO READ SECTOR 
002C32 CE2F 2434 SW RO, WDCNT REDUCE BY THE AMOUNT OF INPUT 002D7A 6801 2090 2549 BNZ COM33 BR IF DISKETTE ERROR 
002C36 0601 2435 ABI ONE,R6 BUMP COUNT 002D7E C725 1cB9 2550 MVBZ FSTSW,R7 RESET THE SWITCH 
gage ye BEDE 3436 eovos tg porbtenc leauge iio $33084 2808 sen an gstbale Ids oet 
IS THIS A BYTE SECTOR 
Metat 6C08 2438 ey SAV2,F4 ADDR SECTOR TO WRITE 002D88 1805 2553 JNZ  DSPOB’ -NO 
002C3E 6F03 2439 BAL DWRIT,R7 GO WRITE SECTOR 002D8A 6FO08 3874 2554 MVW  SEC1,R7 IS THIS AN ODD SECTOR 
002c42 6801 2440 BNZ OM33 BR IF DISKETTE ERROR 002D8E 1302 2555 JEV DSspPOs J-NO 
002C46 BEC3 2444 JCT  PDP05,R6 GO READ NEXT SECTOR IF PATCH 002D90 2556 DSPO7 EQU * 
002c48 6A0 2442 MVW PCSAV,R2 ADR OF DATA SET NAME 002D90 7801 0080 2557 AWI ONE28,R0 MODIFY THE DATA POINTER 
002c4uc 6A0D 2443 MVW R2,FINDE ADR OF DATA SET TO FIND 002D94 2558 DSPO8 EQ0 % 
002C50 ¢720 2444 MVB  DKAD3,R7 IS THE 4966 IND ON 002D94 OF08 2559 MVBI EIGHT, R6 NUMBER WORD/LINE 
002c54 1804 2445 JNZ PDP10 J-YES 002D96 680D 1D3Cc 2560 MVW  RO,SCEND SAVE THE REG 
002C56 4020 2446 MVWI ISCSZ,SCIZE SET 256 BYTE FOR 4964 OO2D9A 4024 3752 2561 MVA  PLEINE, RO WHERE TO POT THE DATA 
002c5c 5003 2447 J PDP11 002D9R 6908 3876 2562 NVW WRDI,R1 DATA TO CONVERT 
00 2C5E 2448 PDP10 ZOU * OO2DA2 E922 3541 2563 DB HUN, &1 GET THE HUNDREDS VALUE 
062C5E 4020 2449 MVWI PSCSZ,SCIZE SET 256 BYTE FOR 4966 OO 2DA6 EA 22 1C96 2564 DB TENS, R2 GET THE TENS VALUE 
002c64 2450 PDP11 BQU. * OO2DAA 8024 3542 2565 MVB  EBCDI, (RO) + MOVE ZERO INTO FIRST LOCATION 
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QO2DAE 8124 566 MVB R1, EBCDI MOVE HUNDERDS EBCDI EQUIV QOO2ZEFO 6F03 2681 BAL RQCNT,R7 REQUEST THE WORD COUNT 

002DB2 8228 5285 MVB R2, EBCDY} , MOVE TENS EBCDI E rv" QOO2EF4 6E08 2682 HVW WDCNT, R6 GET THE WORD COUNT 

002DB6 8320 2568 MVB R3,FBCDT), MOVE UNITS EBCDI EQUIV OO2EF8 1055 2683 JZ PFP14" OUTPUT THE SYNTAX MSG 

OO2DBA 6808 2569 NV END, RESTORE THE REG QOO2EFA 3609 2684 SLL ONE, R6 POSITION FOR BYTE COUNT 

OO2DBE 4324 2570 MVA PLIN6,R3 WHERE TO PUT THE DATA OO2EFC 6E0D 2685 MVW R6 - ADRS NOM OF WORDS FOR OUTIN 

002DC2 2571 DSPOY9 EOU O00O2F00 360A 2686 SRL ON, R6 CHANGE BYTE COUNT TO WORD COUNT 

99 2DC2 6D08 2572 MVW WRD1,R5 WORD TO DUMP 0OO2FO02 8Aa08 2687 HVW Raf SAV1 SAVE ADDR TO PATCH 

02DC6 7044 2573 MVW RO,R2 OO2F06 4O2F 2688 CWI IX 3° ENDDP IS THIS A 128 BYTE SECTOR 

002DC8 7548 2574 AW R5,R2 «| GET ACTUAL STG ADR OF WORD 99 2F0C 1806 2689 JNE PFPOS’ J-NO 

OO2DCA 7548 2575 AW R5,R2 DUMPING , OO2FOR 4O2F 690 CHI NINES,SAV1 IS THE START ADR TO HIGH 

00O2DCC 4724 2576 NVA HTACA,R7 ADR OF CONTROL BLOCK OO2F14 6E01 2691 BLGT DDPO8 B-YES 

QO2DD0 6A0D 2577 MVW R2,HTACB WORD TO CONVERT OO2F18 5005 2692 J PFP06 

0OO2DD4 6BO0D 2578 MVW R3,HTACC PLACE TO PUT THE WORD OO2F1A 2693 PFPO5 EQU wk 

Q0O2DD8 601A 2579 SVC HTOF CONVERT THE DATA OO2F1A 402F 2694 CWI TWO95,SAV1 IS THE START ADR TO HIGH 

OO2DDA 0305 2580 ABI FIVE, R3 BUMP TO THE NEXT AREA 002F20 6£E01 2695 BLGT DDPO8 B-YES 

OO2DDC 4029 0001 2581 AWL ONE, @RD1 UPDATE WORD DUMPING 002F24 2696 PFP06 zou * 

QO2DE2 BEEF 2582 JcT DSP69,R6 LOOP TILL DONE 8 WORDS 0O02F24 6D08 2697 MV SAV1,R5 GET THE START ADR 

O02DE4 680D 39C6 2583 MVW RO, BOE SAVE RO Q02F28 9PA2 2698 JAL CTB,R&7 CONVERT IT 

OO2DE8 6F03 2820 2584 BAL putter R7 GO PRINT THE LINE OO2F2A 3509 2699 SLL ONE, RS DOUBLE FOR WORD BOUNDARY 

OO2DEC 6808 39C6 2585 MVW BUF1,R&O RESTORE RO 0O02F2C 6D0D 2700 MVW R5,SAV1 SAVE IT 

OO2DFO CD24 1C9A 2586 CW ENDDP, R5 IS THIS THE END OF SECTOR 002F30 6F03 2701 BAL RObAT R7 REQUEST THE DATA FOR THE PATCH 

OO2DF4 18CF 2587 JNE DSP08 J-NO--CONTINUE 002F34 CE2F 2702 SW R6 WDENT REDUCE TOTAL WORDS 

OO2DF6 4029 3874 0001 2588 AWI ONE, SEC1 UPDATE SECTOR ADDR 002F38 6C08 2703 HVW SEC1,RG GET SECTOR PATCHING 

OO2DFC 4029 1C76 0001 2589 AWL ONE, SAV3 UPDATE FOR THE MESSAGE 002F3C C720 2704 HVB SCIZ£, R7 IS THIS A 128 BYTE SECTOR 

002E02 8828 3874 3878 2590 CW SEC1, SEC2 SEE IF DONE WITH DUMP OO2F40 1802 2705 JNZ PFPO7 J-NO 

002E08 192D 2591 JNP psp15 J-IF--DONE OO2F4U2 340A 2706 SRL ONE, R4 SHIFT OFF THE LOW ORDER BIT 

OO2EOQA C720 2592 MVB ° SCIZE,RT7 IS THIS A 128 BYTE SECTOR OO2F44 3409 2707 SLL ONE, R4& DOUBLE THE SECTOR NUMBER 

OO2EOE 1818 2593 INZ DSP12 J-NO OO2F46 2708 PFPO7 EOU * 

002E10 40O2F 1C76 001B 2594 cw TWEN7, SAV3 ‘END OF CYL OO2F46 6F03 1898 2709 BAL DREAD,R7 GO READ SECTOR 

002E16 1422 2595 JLT DSP14 J-NO OO2F4A 6801 2090 2710 BNZ COM33 BR IF DISKETTE ERROR 

002F18 C720 1Cc52 2596 MVB DKAD3,R7 ts THE 4966 IND ON OO2F4UE C720 1IBUE 2711 HVB SCIZE, R7 IS THIS A 128 BYTE SECTOR 

OO2E1C 1804 2597 INZ DSP10 J-YE _002F52 1805 2712 JINZ PFPO8 J-NO 

OO2E1E 4020 1B4E 1000 2598 MVWI ISCSZ,SCIZE SET 356 BYTE FOR 4964 O0O2F54 6F08 3874 2713 Ava SEC1,R7 IS THIS AN ODD SECTOR 

002E24 5003 2599 J DSP11 002F58 1302 2714 JEV PFPOS J-NO 

002E26 2600 DSP10 EQU * OO2F5A 7801 0080 2715 AWL ONE28,R0 MODIFY THE DATA POINTER 

002E26 4020 1BUE 0100 2601 MV WI PSCSZ, SCIZE SET 256 BYTE FOR 4966 OO2F5E 2716 PFPO8 EQU % 

002E2C 2602 DSP11 EOU OO2FSE 6B08 1C74 2717 MVW SAV1,R3 ADDR TO PATCH 

002E2C 4020 1C9A OO7F 2603 MVWI ONE27, ENDDP WORD COUNT OF 128 OO2F62 724A 2718 SW R2,R2 CLEAR R2 

002E32 402F 3874 000B 2604 Swi ELEVN, SEC1 ADJUST POINTER ONE OO2F64 7068 2719 AW RO,R3 START OF PATCH 

002F38 402E 3878 O00B 2605 SWI ELEVN,SEC2 ADJUST POINTER TWO 002F66 2720 PFPOS EQU * 

OO2E3E 5004 2606 J DSP13° 002F66 6D08 1C94 2721 MVW BUFAD,R5 ADDRESS PATCH BUFFER 

002E40 2607 DSP12 EQU OO2F6A 2722 PFP10 EQU * 

OO2E40 402F 1C76 0010 2608 CWI SIXTN, SAV3 ARE WE ON THE NEXT CYLINDER OO2F6A SDD4 2723 NVW §F3)* (R3) + MOVE IN PATCH DATA 

OO2E4U6 140A 2609 JLT DSP14 J-NO OO2F6C 0201 2724 ABL NE,R2 UPDATE DISP FOR NEXT PATCH 

002E48 2610 DSP13 EU * - OO2F6ER CA24 1C9A 2725 CW ENDDP, R2 SEE IF NEXT WORD ON THIS SECT 

OO2E48 4020 1C76 0001 2611 MVWI ONE,SAV3 RESET THE SECTOR NUMBER 002F72 100D 2726 JE PFP11 IF NOT BR 

OO2E4E 4724 1C78 2612 MVA SAV2.RT7 ADR OF HEAD OO2F74 BEFA 2727 JcT PFP10,R6 IF NOT DONE WITH PATCH LOOP 

002E52 4FCF 2613 TBTV (R7 fIFTN) TEST AND INVERT 002F76 6E08 1C9C 2728 HVW WDCNT, R6 GET THE NUM OF WORDS TO INPUT 

002E54 1003 2614 JOFF DSP14 J-IF OF QOO2F7A 1009 2729 JZ PFP11 J-IF ALL DONE 

002F56 4029 1C74 0001 2615 AWI ONE, SAV1 ADD. ONE Fro CYLINDER OO2F7C 3609 2730 SLL ONE, R6 POSITION FOR BYTE COUNT 

002E5C 2616 DSP14 Egg OO2F7E G6EOD 39AE 2731 MVW R6, ADRS NOMBER OF BYTES TO INPOT 

OO2E5C CF25 3876 2617 MVWZ @RD1 R7 SET WORD DISP TO 0 0O0O2F82 6F03 26F4 2732 BAL RODAT, R7 ASK FOR THE REST OF PATCH 

002E60 6802 2D20 2618 B pspos GO DUMP NEXT SECTOR OO2F86 CE2F 1C9C 2733 SH RO,WDENT REDUCE BY THE AMOUNT OF INPOT 

002E64 2619 DSP15 EQU. * QOO2F8A 0601 3734 ABI ONE,R6 BUMP COUNT 

00O2E64 4724 3880 2620 MVA DSRL6, R7 PRINT DUMP COMPLETE O0O0O2F8C BEEC 2735 JCT PFPO9, R6 DO SOME MORE PATCHING 

002E68 6000 2621 SVC OUT GO PRINT OO02F8E 2736 PFP11 FOU % 

OO2F6A 6802 2014 2622 B COM29 GO PRINT ENTER OPTIONS OO2F8E 6F03 189E 2737 BAL DWRIT,R7 GO WRITE SECTOR 

OO2E6E 2623 CTB EQU * 002F92 6801 2090 2738 BNZ COM33 BR IF DISKETTE ERROR 

OO2EF6E D628 1C70 2624 MVD R6,SAV SAVE REG 6 & 7 002F96 6802 2C80 2739 B PDP12 GO OUTPUT DUMP COMPLETE 

OO2E72 3546 2625 SRLD EIGHT,RS SAVE TENS AND ONITS OO2F9A 2740 PFP12 EQU * 

OO2E74 ED21 3541 2626 UN, R5 MULTIPLY BY 100 OO2F9A 4724 3566 2741 MVA PARL3,R7 

002E78 3642 2627 SRL EIGHT. R6 PLACE TENS AND UNITS IN LAST 8 BITS OO2F9E 2742 PFP13 EOU % 

OO2ZE7A 3626 2628 SRLD OUR, &6 PLACE UNITS DIGIT IN R7 OO2F9E 6000 2743 Svc ouT 

OO2E7C 3762 2629 SRL TWELGY,R7 PLACE UNITS IN PROPER POSITION OO2FA0 6802 2014 2744 B CON29 

OO2E7E 77A8 2630 AW ADD IN UNITS VALUE OO2FA4 2745 PFP14 ROU * 

002E80 FEE21 1C96 2631 MB TENS, RE MULTIPLY BY TEN OO2FA4 4724 356E 2746 MVA PARL6,R7 ADR OF MESSAGE 

OO2E84 76A8 2632 AW R 6 ADD IN TENS VALUE OO2FAS SOFA 2747 J PFP13 

O002RFR86 p620 1c70 2633 MVD sav R6 RESTORE REGS DTD He Me Me oe ae ah aye Me a She ae ae she he ae i 3h Oh ae ofeach ah He shee ae ah ale ake ah afc ake ake aie ate ac ac ake afc af ae ate ae he ae ae ac ah ae ae ac ate ae ae ae ae afc ate af ae ak ade ese af ake a ak akc 

OO2E8A 5700 26 34 BXS (R7§ ETURN 2750 * : * 
26 36 he aie oie ake ae ate ale akc ae ae ake a ok 2c ae 3c i ae a ake ak af afc ae ake ake akc akc ae akc ae af ake ae akc akc ake ake ake ake aie akc afc ak ate ake ake ae ate af af aka ake ake ake afc ake ofc ok akc akc ake ak ake ak ake ake ake ake Z12) i NAME DELET * 
2637 * * * 
2638 * NAME PF PGM * 2753 * PURPOSE DELETE THE SPECIFIED DATA SET FROM * 
2639 * * 2754 * THE VTOC AND SCRATCH THE DATA SET * 
2640 * PURPOSE THIS ROUTINE IS USED TO MAKE A PERMANENT PATCH * 2755 * * 
2641 * TO A SECTOR. * 2756 * METHOD THE DIAGNOSTIC PROGRAM AS IT RESIDES ON * 
2642 * * 2757 * DISKETTE HAS A NAME OF SCRTCH ENTERED IN THE * 
2643 * METHOD THE SPECIFIC SECTOR IS READ INTO STG ALTERED * 2758 * VTOC AND THE DATA SET SECTORS ARE FILLED * 
2644 * AND REWRITTEN ON THE DISKETTE, * 2759 * WITH ZEROS. * 
2645 * * 2760 * * 
2646 * CALLING SEQUENCE: * 2761 * CALLING SEQUENCE: * 
2647 * 04 * 2762 * * 
2648 * * 2763 * 07 * 
DE WI eH whe ae 2k ale abe ae ake ake ae ah ate Oe ke a ic 3c ake ac 9k ake ah ie a ake a kc fe ie af ae af afc a a a ak af a 2k af aie ake ofc akc afc ate ake af aft ate ake akc ak ae ale ae ae ake af aft ae ak a afc ake af ae akc 2764 ** * 

QO2E8C 2650 PFPGM EQU * 9765 OR OO iio a lok kok fokokoigioi kok lekki iokaioioioigiok lek doiokai lak gioiokaioioioia kaki ie ak ake ie aga aici fe a ate ak 

OO2E8C 6F03 27C4 2651 BAL ROST,R7 SET OP THE DISKETTE ADDRESS OO2FAA 2767 DELET EQU * 

002E90 6F03 2714 2652 BAL R Eoct R7 REQUEST THE CYLINDER NUM OO2FAA 6F03 27C4 2768 BAL ROST, R7 SET UP THE DISKETTE ADDRESS 

0O0O2E94 9OFFEC 2653 JAL CHANGE TO BINARY OO2FAE 2769 DELOO EQU * : 

002E96 4020 1C9A OOT7F 2654 MVWI GnESS. ENDDP SET NUM OF WORDS FOR A SECTOR OO2FAE 6F03 26B8 2770 BAL RQDSN, RT REQUEST THE DATA SET NAHE 

002E9C ED21 1828 2655 MB sped R5 MULTIPLY BY 30 OO2FB2 4020 1B4C Dac 2771 MVA DSNN1, FINDE ADDRESS OF THE DATA SET NAME 

OO2EAO 6D0D 3874 2656 MVW RS,S£C1 SAVE OO2FB8 6F03 1836 2772 BAL FINDS,R7 READ A SECT OF VTOC 

QO2EA4 1805 2657 JINZ PF01 J-IF NOT CYL 0 QOO2FBC 6801 2090 2773 BNZ COM33 J-ON ERROR 

OO2EA6 C725 1BUE 2658 MVBZ SCIZE,R7 SET 128 BYTE SECTOR 002FCO 7024 2774 MVW RO,R1 SAVE RO 

OO2FAA 4020 1C9A O003F 2659 MVWI SIXT3,ENDDP SET 128 BYTE SECTOR 002FC2 892B 0006 1D58 2775 Cu (RA BOE) , HX167 IS THIS IN FIXED AREA 

002EB0 2660 PFPO1 EOU * 002FC8 1705 2776 JLLT DELO1 J-NO 

002EBO0 6F03 2724 2661 BAL REQHD, R7 REQUEST THE HEAD 0 OR 1 OO2FCA 4724 1C6E 2777 MVA INCMD, R7 IND AN INVALID REQUEST 

OO2EB4 75A7 2662 IR RS, R5 WAS O ENTERED OO2FCE 6000 2778 SVC OUT 

OO2EB6 1010 2663 IZ PFHOY J-YES OO2FD0 6802 2014 2779 B COM29 

OO2FB8 A828 1826 3874 2664 AW SPT,SEC1 ADD 15 SECTORS O002FD4 2780 DELO1 EQU * 

OO2ZEBE C¢720 1C52 2665 MVB DKAH3, 87 IS THE 4966 IND ON QOO2FD4 £503 2781 MVWS RO, BOE) ,R5 START SECT OF DATA 450 CLEAR 

OO2EC2 1804 2666 JINZ PFPO2 J-YES OO2FD6 F604 2782 MVWS RO, EOE) , R6 LAST SECTOR TO CL 

OO2EC4 4020 1BUE 1000 2667 MVWI ISCSZ,SCIZE SET 256 BYTE FOR 4964 OO2FD8 7564 2783 MVW 5,83 SAVE THE START SECTOR 

OO2ZECA 5003 2668 J PFPO3 OO2FDA 75€A 2784 SW R5,R6 NOMBER OF SECTORS 

002ECC 2669 PFPO2 zou OO2FDC 6EQD 1C76 2785 MVW R6,SAV3 TOTAL NUMBER OF SECTORS BUFFER 

OO2EFCC 4020 1IB4UE 0100 2670 MVWI PSCSZ,SCIZE SET 256 BYTE FOR 4966 OO2FEO OFOG6 2786 HVBI SIX, R7 NOM OF BYTES TO MOVE 

002ED2 2671 PFPO3 EQU * OO2FE2 4224 1C44 2787 MVA SCRAT,R2 SCRATCH FOR YTOC 

OO2ED2 4020 1C9A OO7F 2672 MVWI QNE27, ENDDP SET WORD COUNT OF 127 OO2FE6 2A24 2788 MVFN {R2) (R1) MOVE INTO ENTRY TO REWRITE 

OO2ED8 2673 PFPOY EOU OO2FE8 OFIA 2789 MVBI WENG, RT NOM BYTES OF FILL CHAR 

OO2ED8 6F03 2734 2674 BAL REOSC, R7 REQUEST THE STARTING SECTOR OO2FEA OAOO 2790 MVBI ZERO,&2 FILL CHAR OF ZERO 

OO2ZEDC 75A7 2675 IR R5 SAVE THE DECIMAL NUMBER QOO2FEC 2A2C 2791 FFN R2 al) FILL WITH ZEROS 

OO2Z2EDE 105D 2676 JZ BEB ZERO SECTOR IS ERROR OO2FEE 8828 1B56 1A48 2792 MVW HXAUN, WRW7 SET A BYTE COUNT OF 256 

OO2EEO 9FC6 2677 JAL CyB CHANGE TO BINARY OO2FFU 6F03 189EF 2793 BAL DWRIT,R7 WRITE THE ENTRY 

OO2FE2 CD2E 3874 2678 AW 5, 881 NOW WE HAVE THE START OO2FF8 6801 2090 2794 BNZ COM33 J-DISKETTE ERROR 

OO2EE6 4029 3874 FFFF 2679 AWI SEC! REDUCE COUNT OO2FFC 4020 1A4A 39C6 2795 MVA BUF1,WRWS DATA ADDRESS 

OO2ZEFC 6F03 26C8 2680 BAL HeSECT REQUEST THE START ADR 003002 4724 3FFO 2796 MVA RELSYV, R7 END OF BUFFER AREA 
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U38F9 = DCP DISKETTE UTILITY PROGRAM P/N=1635019 EC=375147 PAGE 13 U38F9 - DCP DISKETTE UTILITY PROGRAM P/N=1635019 EC=375147 PAGE 13A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003006 4124 39C6 2797 MVA BUF1,R1 START OF BUFFER AREA 003132 4624 0168 2913 MVWI EVTOC,R6 WAIT FOR THE DEVICE TO SETTLE 
0OO300A 71EA 2798 SW R1,R7 NUMBER OF BYTES TO CLEAR 003136 2914 WAIT1 EQu * 
00300C 77cu 2799 MVW 7,R6 SAVE THE BYTE COUNT 003136 6003 2915 SVC IDLES5 
00300E 0860 2800 MVBI ZERO, RO FILL CHARACTER 003138 BEFE 2916 JCT  WAIT1, R6 
003010 282c 2801 FFN RO, (81) CLEAR THE BUFFER 00313A 5700 917 BXS (R7) 
003012 7384 2802 HV®W R3,R GET THE START SECTOR 2919 PE SES LSS SELLS SSS SS SESE SS SSS SSSE SSS SESS SPSS STS SSE SESS ESS ES SSS TS ES SSE TE SS 
003014 3642 2803 SRL EIGHT, R6 # OF 256 BYTE INCREMENTS 2920 % * 
003016 6E0D 1D12 2804 MVW R6,SCOMP SAVE THE NUMBER 2921 * NAME VRFYO VRFY1 ae 
00301A CE24 1D12 2805 CW SCOMP, R6 MORE THAN STG CAN HOLD 2922 * me 
00301F 1606 2806 JLLE DELO2 J-NO 2923 * PURPOSE READ VERIFY THE COMPLETE DISKETTE. % 
003020 6EOF 1D12 2807 SW SCOMP, R6 REDUCE COUNT BY 1 STG VOLUME 2924 * * 
003024 6E0OD 1C7A 2808 MVW R6,SAV4 SAVE THE NEW COUNT 2925 * METHOD A READ SECTOR ID. IS ISSUED TO EACH TRACK. * 
003028 6508 1D12 2809 MVW SCOMP, R6 NUM OF SECTORS IN ONE READ 2926 * THE FORMAT BYTE IS USED IN THE READ VERIFY * 
00302c 2810 DELO2 HOU * 2927 * DCB. A READ VERIFY COMMAND IS ISSUED FOR * 
00302C 7444 2811 MVW R4Y,R2 SAVE R4& 2928 * THAT TRACK. THIS PROCEDURE IS FOLLOWED FOR * 
00302E EA22 182A 2812 DB SPhB_.R2 DIVIDE BY 15 2929 * ALL TRACKS. * 
003032 7367 2813 IR R3,R3 SET THE CONDITION CODES 2930 * x 
003034 100B 2814 JZ DELO 3 J-ZERO 2931 * CALLING SEQUENCE: 
003036 4224 QOOOF 2815 MVWI FIFTN, R2 MAX NUMBER OF SECTORS 2932 * * 
00303A 734A 2816 SW R3,82 GET THE NUMBER OF SECTORS LEFT $333 * OB OR OC * 
00303C 7264 2817 MV R2,R3 PUT THE NUMBER IN R3 934 * * 
00303E 6E0D 182F 2818 MVW R6,SAVE6 SAVE R6 2935 sooo io ack oi giiigiok i lok i igi mii igi iio ii I IG RIK tok kak ie alok ik ate acai ai aie ae 
003042 CB2F 182E 2819 SW R3,SAVE6 SUBTRACT THE VALUE IN R3 00313c 2937 VRFY1 zou * ENTRY POINT 
003046 120A 2820 ON DELOS J-IF NEGATIVE 00313C 8028 1D0D 34FB 2938 MVB HEXFF, BOTH INDICATE TO DO SIDE ONE 
003048 73c4 2821 MVW R3,R6 USE THE VALUE IN R3 003142 2939 VRFYO EOU * ENTRY POINT 
O0304A 5008 2822 J DELOS 003142 8028 1DO0D 1D0C 2940 HVB HEXFF,ASKQT acon THE INDICATOR 
00304Cc 2823 DELO3 EOU * 003148 6F03 27C4 2944 BAL ROST, £7 SET UP THE DISKETTE ADDRESS 
00304C 6E0D 182E 2824 MVW R6,SAVE6 SAVE R6 00314C C725 19FE 2942 MVBZ VFW2,R7 CLEAR THE SECTOR SIZE 
003050 3822 DELOYW EQU * 003150 C725 1A02 2943 HVBZ VFWU,R7 CLEAR THE SECTOR SIZE 
003050 402E 182E OO00F 826 SHI FIFTN,SAVE6 SUBTRACT THE MAX SECTOR COUNT 003154 2944 vROOO FOU * ENTRY POINT 
003056 1202 2827 IN DELOS J~-IF NEGATIVE 003154 C725 34FE 2945 HVBZ MFMBT,R7 CLEAR THE INDICATOR 
003058 4624 OOOF 2828 MVWI FIFTN,R6 FOLL TRACK 003158 4724 3886 2946 HVA COPN4, R7 REQUEST DESTINATION DISKETTE 
00305cC 2829 DELOS EQU * 00315C 6000 2947 SVC OUT MESSAGE ADDRESS 
00305C CE2E 1C74 2830 A R6,SAV1 SAVE THE NUMBER OF SECTORS TO READ 00315E 4724 1CEA 2948 MVA RELEM, R7 IS THE DISKETTE LOADED 
003060 7664 28 31 MVW R6,R3 NUMBER OF SECTORS TO WRITE THIS TIME 003162 6001 2949 SVC OUTIN MESSAGE ADDRESS 
003062 3641 2832 SLL EIGHT, R6 NOMBER OF BYTFS PER SECTOR 003164 802B 1C56 182B 2950 CB BUFFER, NO TS If A NEGATIVE RESPONSE 
003064 6EOD 1A48 2833 MV R6 ,WRYT NUMBER OF BYTES TO WRITE 00316A 10F4 2951 JE VROOO J-YES 
003068 6F03 189E 2834 BAL DWRIT,R7 GO READ THE DATA 00316C 4724 34D0 2952 MVA RETRY, R7 MESSAGE CONTROL BLOCK 
00306C 6801 2090 2835 BNZ COM33 B-IF AN ERROR 003170 6001 2953 SVC OUTIN 
003070 7388 2836 AW R3, RY UPDATE THE SECTOR POINTER 003172 802B 3752 182B 2954 CB PLINE, NO WAS IT A NEGATIVE ANSWER 
003072 6E08 182E 2837 MVW SAVE6, RE NUMBER OF SECTORS TO WRITE 003178 1806 2955 JNE VEROO J-NO 
003076 1002 2838 JZ DELO 6 J-IF ZERO 00317A 8028 1DOD 1DOE 2956 MVB HEXFF, NORTY IND NO RETRIES 
003078 1201 2839 JN DELO6 J-IF NEGATIVE 003180 4020 1834 0001 2957 MVHI ONE,RTYCT . RETRY COUNT 
OO307A SOEA 2840 J DELO 003186 2958 VEROO FOU x 
00307C 2841 DELO6 EQU we 003186 CF25 1B4A 2959 MVWZ PCYLA,R7 SET THE DISKETTE POSITION 
00307c 6802 2014 2842 B COM29 -PRINT THE ENTER OPTIONS 00318A 748A 2960 SW R4,R SET UP CYL ADDRESS 
2844 sok OOO do oO og io GIG GO io lok ig i io i i ok kok ac tak sk tok kee aca 00318C 6F03 187E 2961 BAL VERCB, R7 RFECALIBRATE THE DISKETTE 
2845 * * 003190 6801 2090 2962 BNZ COM33 B-IF ERROR 
2846 * NAME FRMAT * 003194 D625 3ACE6 2963 MVDZ BUF2,R6 CLEAR THE DATA WORD 
2847 * * 003198 D625 3ACA 2964 MVDZ BUF2+FOUR,R6 CLEAR THE DATA WOR 
2848 * PURPOSE FORMAT THE DISKETTE TO ALL ZEROS. * 00319C C725 1BUE 2965 HVBZ SCIZE,R7 SET THE SECTOR SIZE OF 128 BYTES 
28u9 x * 0031A0 D725 342E 2966 MVDZ LSTSK,R7 CLEAR THE AREA 
2850 * METHOD 1.ZEROS ARE WRITTEN IN EACH SECTOR. * 0031A4 8828 3122 3126 2967 MV® SIDEO,MAXRC SIDE ZERO MAX RECORD COUNT 
2851 * 2.AN INITIAL VTOC ENTRY IS WRITTEN. * OO31AA 2968 VERO2 EQU cs 
2852 * rs 0031AA 7890 2969 SECON RG SET THE RECORD NUMBER IN THE LAMPS 
2853 * CALLING SEQUENCE: * 0031AC 6F03 1886 2970 BAL DSCID,R7 GO READ SECTOR ID CYL 0 
2854 * x 0031B0 6801 33CC 2971 BNZ RTRE60 J-IF NOT ZERO 
2855 * OA * 0031B4 902B 3AC8 3502 2972 cD BUF2+TWO, FRMER WAS THE TRACK IN ERROR 
2856 * * 0031BA 180E 2973 JNE RD32 J-NO 
B57 ie i ai ake i kc oe akc fe aka kok ai a fe ake ake 2 2k ke eae akc ak ake ake ae ake ae ake ae ke i ae ake aac a ake a ake ae fe ae ae akc of ake ae akc ak kc ae oe ake ke ac afe ake ake ae af a a ak 0031BC 9028 342E 39C6 2974 MVD LSTSK, BUF 1 MOVE IN THE TRACK WE TRIED 
003080 2859 FRMAT EQU * ENTRY POINT 0031C2 8028 357D 39C6 2975 NVB HEX4O, BUF1 
003080 6F03 27C4 2860 BAL RQST,R7 SET OP THE DISKETTE ADDRESS 0031Cc8 8028 1DOD 39c9 2976 MVB HEXFF,BUFI+THREE IND ALL SECTORS 
003084 2861 FINTO FOU 1 ENTRY POINT 0031CE 4020 3428 0001 2977 MVWI ONE, ERCNT IND ONE MSG TO BE PRINTED 
003084 4724 38AC 2862 MVA COPM3,R7 4 REQUEST DESTINATION DISKETTE 0031D4 6802 333C 2978 B accés 
003088 6000 2863 SVC out MESSAGE ADDRESS 0031D8 2979 RD32 EQU x 
00308A 4724 CEA 2864 MVA RELEM, R7 TS THE DISKETTF LOADED 0031D8 4724 3AC6 2980 MVA BUF2, R7 GET THE BUFFER ADDRESS 
00308E 6001 2865 Svc OUTIN MESSAGE ADDRESS 0031DC 4F8B 2981 TBTR (R7 ELEVN) IS THE MFM BIT ON 
003090 802B 1c56 182B 2866 CB BUFFR, NO IS IT A NEGATIVE RESPONSE 0031DE 1003 2982 JZ RD33 J-NO 
003096 10F6 2867 JE FINTO J-YES 0031FO0 8028 1D0D 34FE 2983 MVB HEXFF,MFMBT T/ON THE MFM INDICATOR 
003098 C725 1BUE 2868 MVBZ SCIZF,R7 SECTOR SIZE 128 0031F6 2984 RD33 EQU * 
00309C cCF25 1BUA 2869 MVWZ PCYLA,RT SET THE DISKETTE POSITION 0031E6 4324 3454 2985 MVA BCONT,R3 ADR OF CONSTANTS 
OO30A0 748A 2870 SW R4Y,RY SET UP CYL ADDRESS 0031EFA 6D08 3AC8 2986 MVW BUF24TWO, R5 FORMAT 
0030A2 6F03 187E 2871 BAL VERCB, R7 RECALIBRATE THE DISKETTE 0031FE C720 1C52 2987 MVB DKAD3, R7 IS THE 4966 IND ON 
0030A6 6801 2090 2872 BNZ COM33 B-IF ERROR 0031F2 1805 2988 JINZ RD33A J-YES 
OO30AA 8828 1B52 1A58 2873 MVW SHWDC,FMW7 SECTOR BYTE COUNT 0031F4 3542 2989 SRL EIGHT, R5 POSITION THE BITS 
0030B0 6F03 1892 2874 BAL DFORM, R7 GO WRITE CYL 0 0031F6 C528 1A02 2990 uVB RS,VFaG SAVE THE SECTOR SIZE 
0030B4 6801 2090 2875 BNZ COM OO31FA 351A 2991 SRL THREE, RS POSITION THE BITS 
0030B8 c720 1C52 2876 MVB DKAD3,R7 IS THE 4966 INDICATOR ON 0031FC 5SO0OO0F 2992 J RD33B 
Q0O030BC 1804 2877 JINZ FINT1 J-YES O0O031FE 2993 RD33A EQU * 
OO30BE 4020 1B4UE 1000 2878 MVWI 1ISCSZ,SCIZE 4964 SECTOR SIZE OO31FE 6D08 3ACA 2994 MVW BUF 2+FOUR,RS FORMAT 
0030c4 5003 2879 J FINT2 003202 C528 19FE 2995 MVB R5,VFW2 SAVE THE SECTOR SIZE 
0030C6 3880 FINT1 FOU aK 003206 C725 1CB9 2996 MVBZ FSTSW,R7 IS THIS CYLINDER 0 HEAD 0 
0030C6 4020 1B4E 0100 2881 MVWI PSCSZ,SCIZE 4966 SECTOR SIZE 00320A 1806 2997 JINZ RD33C J-YES 
0030CC 2882 FINT2 FOU * 00320C C720 34FE 2998 MVB MFMBT,R7 IS THE MFM BIT ON 
0030CC 8828 1B54 1A58 2883 MVW HOFOO, FMW? SECTOR BYTE COUNT 003210 1003 2999 JZ RD33C J-NO 
0030D2 O4OF 2884 ABI FIFTN, R4& BUMP THE RECORD NUMBER 003212 4724 1I9FE 3000 MVA VFW2,R7 GET THE DCB WORD 2 ADDRESS 
0030D4 cc24 3122 2885 CW SIDEO, R4 IS THIS THE END 003216 4F43 3001 TBTS (R7, THREE) T/ON THE MFM BIT IN THE DCB 
0030D8 1008 2886 JE FINT3 J-END 003218 3002 RD33C EQU * 
0O030DA 7890 2887 SECON R4& SET RECORD NUMBER IN THE LAMPS 003218 3541 3003 SLL EIGHT,R5 SHIFT OFF UNWANTED BITS 
0030DC 6F03 20BA 2888 BAL TPGMB,R7 TEST THE TERMINATE BIT 00321A 353A 3004 SRL SEVEN, RS REPOSITION THE BITS 
0030E0 6F03 1892 2889 BAL DFORM, R7 FORMAT THE NEXT TRACK 00321C 3005 RD33B EO0 * 
0030E4 6801 2090 2890 BNZ COM33 00321C 7568 3006 A R5,R3 GET THE CORRECT CONSTANT 
0030E8 SOF1 2891 J FINT2 SET UP THE NEXT TRACK 00321E 8BO08 1A08 3007 MVW (23) VFW7 GET THE CORRECT BYTE COUNT 
OO30EA 2892 FINT3 FOU fe 003222 6F03 188C 3008 BAL DVE f RT GO VERIFY THE TRACK 
OO30EBEA 4020 1A38 0100 2893 MVWI TWOS6, RDW7 BYTE COUNT 003226 1822 3009 JINZ ERTRP J-IF ERROR 
0030FO 4020 1A3A 39C6 2894 MVA BUF1,RDWB DATA ADDRESS 003228 3010 RD35 EOD * 
O003GF6 9028 1A38 1A48 2895 MVD RDW7,WRW7 DATA ADDRESS 003228 C720 1C52 3011 MVB DKAD3,R7 IS THE 4966 INDICATOR ON 
OO30FC 4424 O14A 2896 MVWI VTOCA, R4 START OF VTOC 00322c 1804 3012 JINZ RD36 J-YFS 
003100 6F03 1898 2897 BAL DREAD,R7 ORIENT RO FOR NEW VTOC 00322E 4020 1B4E 1000 3013 MVWI ISCSZ,SCIZE 4964 SECTOR SIZE 
003104 6801 2090 2898 BNZ COM33 B-IF DISKETTE ERROR 003234 5003 3014 J RD37 
003108 4524 3506 2899 MVA VTENT, RS NEW VTOC ENTRY 003236 3015 PD36 EOQU * 
00310C OF20 2900 MVBI THIR2,R7 NOM OF BYTES IN ENTRY 003236 4020 1B4UE 0100 3016 MVWI PSCSZ,SCIZE 4966 SECTOR SIZE 
00310EF 2D04 2901 MVFN (RS) (RO) MOVE DATA INTO BUFFER 00323c 3017 RD37 FOU * 
003110 6F03 189E 2902 BAL WRIT, RT WRITE THE SECTOR 00323C 6F03 20BA 3018 BAL TPGMB, R7 TEST THE TERMINATE BIT 
003114 6801 2090 2903 NZ COM33 B-IF DISKETTE ERROR 003240 4029 342E 0001 3019 AWI ONE, LSTSK BUMP THE TRACK COUNTER 
003118 2904 ERRG EQU 003246 OWE 3020 ABL THRTY, R4 BUMP THE RECORD NUMBER 
003118 4020 1834 0008 2905 MVWI EIGHT,RTYCT RETRY COUNT 003248 cC24 3126 3021 CW MAXRC,R4 IS THIS THE END 
00311E 6802 2014 2906 B CON29 GO HOUSE-KEEP 00324C 18AE 3022 JNE VERO02 J=-NO 
903122 0906 2907 SIDEO DC A (2310 00324E D725 342E 3023 MVDZ LSTSK,R7 CLEAR THE DATA AREA 
003124 0915 2908 SIDE1 DC A (2325 003252 4724 3430 3024 MVA LSTSKtTRC, RT ADDRESS TO SET HEAD ONE 
003126 0915 2909 MAXRC DC A(2325 003256 4F47 3025 TBTS {Ry SEVEN SET HEAD ONE 
003128 2910 WAIT EOU * 003258 8828 3124 3126 30 26 MVW IDE1 MAXRC END RECORD FOR SIDE 1 
003128 8028 0233 3425 2911 MVB DKAD, RESET#ONE ADR OF DEVICE 00325E C725 34FB 3027 MV BZ BOTH, & IS THE INDICATOR ON 
00312E 680C 3424 3912 TO RESET 003262 6800 3118 3028 BZ ER B-NO 
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COse7E So8e eo ADRPB Ne A (ADEBA) 3102 ACCU ADDRESS. HEX LOCATION (00003328) IN CSECT(U38F9 ) LENGTH (1) 
EEEE base S08 We : rues) 3107 ACCUS aRBDRESS: HEX LOCATION (0000333C) IN CSECT(U38F9 ) LENGTH (1) 
MET eee Be ne ; i 3485 ADRAC e ADDRESS. HEX LOCATION (00003978) IN CSECT(U38F9 ) LENGTH (4) 
Obaoee. nece ee Rea oe CISrCTOR 3492 ADRBA SABDRESS. HEX LOCATION (00003988) IN CSECT(U38F9 ) LENGTH (6) 
503605 ance Suge BUR ae 4 BUFD) 3499 ADRCA vABDRESS. HEX LOCATION (0000399A) IN CSECT(U38F9 ) LENGTH (14) 
Bh aoce eine het: He a 1294 ADREP a ADDRESS. HEX LOCATION (000020D4) IN CSECT{U38F9 ) LENGTH(1) 
aoaace Serer ter ence ADRCA ve atene cor SECTORS? 3480 ADRPA 32 OO RESS. HEX LOCATION (CO000396E) IN CSECT(U38F9 ) LENGTH (2) 
ES aose ee ADRP8 ne A (ADESA) 3487 ADRPB ADDRESS. HEX LOCATION (0000397E) IN CSECT(U38F9 ) LENGTH(2) 
et tts 3284 ADRB ne ; rahe 3494 ADRPC ADDRESS. HEX LOCATION(00003990) IN CSECT(U38F9  ) LENGTH (2) 
0333883 Goes BE Ae Re ; ohL23) 1653 ADRP1 ADDRESS. HEX LOCATION(000025B0) IN CSECT(U38F9 ) LENGTH(2) 
pega. cee Seog ee epae 1647  ADRP3 MIBBRESS. HEX LOCATION(00002588) IN CSECT(U38F9 ) LENGTH (2) 
peaone 0386 3208 HReR ie 4 $) 1651 ADRPY  RDDRESS. HEX LOCATION(CQ0O025AC) IN CSECT(U38F9 ) LENGTH (2) 
beaecn Boor aoa4 AeneY ie ; x5} 3452 ADRPS ADDRESS. HEX LOCATION (0000391E) IN CSECT(U38F9 ) LENGTH(2) 
ett 3890 3245 DC A Shv2M 3459 ADRP6 ‘ADDRESS. HEX LOCATION (C0003934) IN CSECT(U38F9 ) LENGTH (2) 
Beane Pettennhihnt hein: 3212 Be ie 1288 {0} 3466 ADRP7 v ADDRESS. HEX LOCATION (00003948) IN CSECT(U38F9 ) LENGTH (2) 
80 3na6 3245 BE 132 ati Me Mer 3501 ADRP8 ADDRESS. HEX LOCATION(OOOC39AA) IN CSECT(U38F9 ) LENGTH (2) 
003BC6 3218 ERRBF ROU aes 3473 ADRP9Y ADDRESS. HEX LOCATION(0000395EF) IN CSECT(038F9 ) LENGTH (2) 
0030F0 3255 SECBF ROG hel 1298 ADRO1 ADDRESS. HEX LOCATION(Q00020E4) IN CSECT(U38F9 ) LENGTH (1) 
003FFO 3232 RELSV eou poeboresere 1304 ADRO2 ‘ADDRESS. HEX LOCATION(Q00020F8) IN CSECT(U38F9 ) LENGTH (1) 
eeeees Ge eure 1307 ADRO3 ADDRESS. HEX LOCATION (00002104) IN CSECT(U38F9 ) LENGTH(1) 
1313 ADROY \ADD RES. HEX LOCATION(C0002114) IN CSECT(U38F9 ) LENGTH(1) 
1319 ADROS ADDRESS. HEX LOCATION (0000211£) IN CSECT(U38F9 ) LENGTH (1) 
1322 ADROG6 sAbDRESS. HEX LOCATION (C0002126) IN CSECT(U38F9 ) LENGTH (1) 
1324 ADROT ABR RESS. HEX LOCATION(00002128) IN CSECT(U38F9 ) LENGTH (1) 
1327 ADRO8 ADDRESS. HEX LOCATION(C000212c) IN CSECT(U38F9 ) LENGTH (1) 
1330 ADROO ADDRESS. HEX LOCATION (00002134) IN CSECT(U38F9 ) LENGTH(1) 
1658 ADR1A , BPBRESS. HEX LOCATION(CO0025BA) IN CSECT(U38F9 ) LENGTH (16) 
1645 ADR1B ,ADDRESS. HEX LOCATION(00002576) IN CSECT(U38F9 ) LENGTH (16) 
1649 ADR1C {ADDRESS. HEX LOCATION (0000258C) IN CSECT(U38F9 ) LENGTH(30) 
1333 ADR10 1 ADB RESS. HEX LOCATION (00002138) IN CSECT(U38F9 ) LENGTH(1) 
1338 ADR11 ADDRESS. HEX LOCATION (00002144) IN CSECT(U38F9 ) LENGTH (1) 
1354 ADR13 jAPDRESS, HEX LOCATION (0000217C) IN CSECT(U38F9 ) LENGTH (1) 
1370 ADR16 ADDRESS. HEX LOCATION (000021B4) IN CSECT (U38F9 ) LENGTH (1) 
1377 ADR17 jABDRESS, HEX LOCATION (OOOO ICA) IN CSECT (U38F9 ) LENGTH (1) 
1384 ADR18 ADDRESS. HEX LOCATION(000021DE) IN CSECT(U38F9 ) LENGTH (1) 
1408 ADR19 , ADDRESS. HEX LOCATION(00002234) IN CSECT(U38F9 ) LENGTH (1) 
1415 ADR20 ADDRESS. HEX LOCATION (C000224C) IN CSECT(U38F9 ) LENGTH(1) 
1422 ADK21 ADDRESS. HEX LOCATION(00002264) IN CSECT(U38F9 ) LENGTH (1) 
1435 ADR22  ABDRESS. HEX LOCATION(00002284) IN CSECT(U38F9 ) LENGTH (1) 
1437 ADR23 ADDRESS. HEX LOCATION (00002288) IN CSECT(U38F9 ) LENGTH (1) 
1441 ADR24 aOR S eg case ee IN CSECT(U38F9 ) LENGTH (1) 
1446 ADR25 ADDRESS. HEX LOCATION(000022A0) IN CSECT(U38F9 ) LENGTH (1) 
1455 ADR26 {RBBRESS, HEX LOCATION (000022BA) IN CSECT(U38F9 ) LENGTH(1) 
1463 ADR27 , RDDRESS. HEX LOCATION(C00022D2) IN CSECT(U38F9 ) LENGTH (1) 
1465 ADR28 gnpoRse. nex LOCATION (000022D8) IN CSECT(U38F9 ) LENGTH(1) 
1475 ADR29 AbD RESSs HEX LOCATION (000022F8) IN CSECT(U38F9 ) LENGTH(1) 
1497 ADR30 ADDRESS. HEX LOCATION (00002346) IN CSECT(U38F9 ) LENGTH (1) 
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HEX acai ed ie ti meet IN 
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HEX TyMTaT 3 Wea” ab IN 
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2876 2987 %3011 035 

HEE LOCAPTON (0000 1c6a) IN 

HEX LOCATION (Q0O001BC2) IN 


HEX LOCATION (0000 1C66) 
HEX LOCATION (CC001C68) 
HEX LOCATION (CO001AFC) 
HEX LOCATION (00001B5C) 
HEX LOCATION (C00035A2) 
HEX LOCATION (00C0035F0) 
HEX LOCATION (CCO01AE8) 
HEX LOCATION (CC001BuU8) 
HEX LOCATION (GOO01AFC) 
HEX LOCATION (QO001AFE) 
HEX, LOCATION (COOO1AEA) 
HEX LOCATION (O0001AEC) 
HEX LOCATION (00091918) 
HEX LOCATION (0000191C) 
HEX LOCATION (00001932) 
HEX LOCATION (0CC01D42) 


1635019 


CSECT (U38F9 
CSECT (U38F9 
CSECT(U3SBF9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT(U38F9 
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CSECT(U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT(U38F9 
CS ECT (U38F9 


CSECT (U38F9 
1457 1477 


CSECT (U38F9 
CSECT (U38F9 
CSECT (U38F9 
3063 3086 
CSECT (U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT (U38F9 


Se ed 


) 


1564 


) 
) 


asho 


) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 


EC=375147 


PAGE 18 


COPYRIGHT IBM CORP 1976 


LENGTH (1) 
LENGTH (1) 
LFNGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (8) 
LENGTH (1) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGT (2) 
LFNGTH (2) 


LENGTH (10) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (32) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LFNGTH (2) 


U38F9 - DCP DISKETTE UTILITY PROGRAM 
CROSS“RFEFERENCE LISTING 


DECLARED 


381 


355 
3436 
3437 
3438 
3439 
2441 

437 

681 

a97 

399 

407 

951 

95:2 
2484 
2495 
2594 
2506 
2508 
2521 
2547 
2556 
2558 
2571 
2600 
2602 
2607 
2610 
2616 
2619 
3432 
3434 

110 
3167 

817 

180 

363 

395 


3266 
3263 


74 


76 
934 
903 


896 
897 
108 


3186 

858 
35.19 
2904 


NAME 


DREAD 


DSCID 
DSG4 

DSG4A 
DSG4B 
DSG4C 
DSG6 

DSKIT 
DSKPR 
DSK 10 
DSK11 
DSK2C 
DSNAK 
DSNM1 
DSPDS 
DSPO01 
DSP02 
DSPO3 
DSPO4 
DSPOS 
DSPO06 
DS P07 
DSP08 
DS P09 
DSP1C 
DSP11 
DSP12 
DSP13 
DSP14 
DSP15 
DSRL4& 
DSRL6 
DSTYP 
DTOH 

DTY PE 
DVASG 
DVERF 
DWRIT 


EBCBK 
EBCDI 


EIGHT 


ELEVN 
ENADR 
ENDDP 


ENTRA 
ENTRB 
EOE 


ERCNT 
ERMS1 
ERRBF 
ERRG 


ATTRIBUTES AND REFERENCES 


LOCATION (00001898 


HEX LOCATION (00001886) 
3hbP HEX LOCATION (00003884) 
ADDRESS. HEX LOCATION (00003888) 
ADDRESS. HEX LOCATION (00003890) 
ADDRESS. HEX LOCATION (00003898) 
3 ADDRESS. HFX LOCATION (0000389C) 
g HEX, LOCATION (“CQOI9OR 
S;_HEX LOCATION (COOQ1AF4) 
ESS. HEX LOCATION (C0C018A 2) 
RESS. HEX LOCATTON (COCO 1828) 
RESS. HEX LOCATION (CO00018CA) 
RESS. HEX LOCATION (0C001D4U6) 
RESS. HEX LOCATION (OC CO1D4C) 
RESS. HE x LOCATION (00002C98) 
RESS. HEX LOCATION (00002cC2) 
RESS. HEX LOCATION (00002CF0) 
DRESS. HEX LOCATION (00002CE6) 
DRESS. HEX LOCATION (00002CEC) 
RESS. HEX LOCATION (00002D20) 
RESS. HEX LOCATION (00002D76) 
S. HEX LOCATION (00002D90) 
S; HE Bs 59h 3 Egy (00002098) 
S. HEX LOCATION (C0002DC2) 
RESS. HEX LOCATION (OCO002F26) 
RESS. HEX LOCATION (00002F2C) 
RESS. HEX LOCATION (N0002E40) 
RESS. HEX LOCATION (C0002E48) 
HEX LOCATION (00002ESC) 
HEX LOCATION (00002564) 
HEX LOCATION (0000387C) 
RESS. HEX LOCATION (00003880) 
OLUTE. HEX VALUE (0C00000C) 
HEX LOCATION (0C0033FA) 
HEX, LOCATION (0000 1BC8) 
HEX LOCATION (00001816) 
HEX LOCATION (0000188C) 
HEX LOCATION (0000189) | 


= 
oO 
o 
wm w 
my tf 
wn 
ONAN 
6 e 


WP lo fae 
=e) 


—ONY 2 TOODVUOWOODNOUOIOM 


2 
D 
0 
D 
5 
D 
4 
D 
5 
D 
Tt 
D 
S) 
D 
5 
D 
9 
D 
C 
D 
0 


NM hw NO W 8 
(os) 


hw N 


ee) 
td 


NY NO NY NY NY NY ND LO 
eo ON ON ON Oa Ul U1 O12 U1 ON Ee OU ON Ben Wr OP 


NM NN & 
OVOV DO VV OWNYWONGOODOCODKOOWODOUOUUND FU SU=090U 
DONS AO 29 NN OT ANYOAND NNO NOIWOVDOSIONYO aU NnNDONMOUM 
mw 
te 
MNNMDNWN 
ANNAN 


NO 


pao} 
ty 


CA 00003552) 


( 
(Cc 


a0) 
ty 


ae) 
tJ 
WPS Naty apg tes Ned DOM NOE fost ho N ed hoe 


_ Jago © 


Ms OO NUVI 
AWttrnorm 
NVAOWO w 
o) 
bem 
GQ NNAWwWH os 


= 
ir 


oe) 
=a attOHoe UHNHO YOW ONeHoaH ow 


co) 
fo) 


003 
141 
568 
0008) 
323 
001 
$89 


Wheat WAIN 23 NOW W 8 | 1 A) 


Awowe 


> 
m 


0000008) 
0 
0 


NO £6 
a a 
= PD 
~~ 


10° ~~ OpWOOOCH Awe a Moe 
We waa NHANHANG tee 


nN NY NS OOAsM US Ww 


i 
(@) 
> 


0 


QD 
> 


—- = NN N 
OI OO OP OAW HOP OY NES aR OP ANJOP AUIOY NP OUPOY uaYyPWYPWPY oP AYyUYPNYPUM 


DODDS HAV OaDWEOD SONOSCANOIWWAINSNWWWHAONOWEYD 
ONG ODIO ANNN AVON UNND OU ONWJJONDEOVUONDEAY 


oOo ~~ Om 
Oo 2 


- 
i 
Aana~TOVIO MOOD, OM, DWOLD wo 


ABA OONZOS DAZOZmAO UWNAINO ~3I~IZOSZ © 


—_ 
OQ 
P- 


(C 428) 
HEX LOCATION (QC001C3A) 
RESS. HEX LOCATION (C0003BC6) 
RESS. HEX LOCATION (00003118) 


0 
2 
2 
0 
4 
2 
z 
0 
0 
2 
0 
2 
C 
1 
0 
1 
Q 
1 
0 
3 


WON m@aqqWODO SOLOUIA wore 


SOFOn wmttuUtt Out'o 


00 
28 
00 
60 
CG 
16 
00 
16 
00 
17 
CO 
10 


NJ 
oO 
OW BDOQO0— Waa 


—_ 


1407 20 66 rk 


man 
WO 
NO) 

a ad 
nN 
re 
4 


P/N= 


IN 


IN 
IN 
IN 
IN 
IN 
IN 


IN 
77 


1635019 


CSECT (U38F9 
2304 2366 


CSECT (U38F9 
CSECT (U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSFCT(U38F9 
CSECT (U38F9 


N CSECT(U38F9 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


IN 
IN 
IN 
IN 
5. 


IN 


542) IN 
2142 
3130 


CSECT(U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT (U38F9 
CSECT (U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 
CSECT (U38F9 
CSECT(U38F9 


CSECT (U38F9 
CSECT (U38F9 
CSECT(U38F9 
CSECT (U38F9 


CSECT (U38F9 
2457 °2737 


CSECT(U38F9 
CS ECT (U38F9 
2526 2527 
3131 3133 


CSECT (U38F9 


CSECT(U38F9 
2659 (2672 


CSECT (U38F9 


nag Wad” 
1170 182 


1404 1508 
CSECT(U38F9 
CSECT (U3EF9 
CSECT(U38F9 
CSECT (U38F9 


EC=375147 


PAGE 18A 


COPYRIGHT IBM CORP 1976 


LENGTH (1 
ashe ou 


Uh) — Wh 
aw 
“sw 


oOn~ 
Ano 
Wine 


1 


LENGTH (1) 
LENGTH (4) 
LENGTH (8) 
LENGTH (8) 
LENGTH (2) 


LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (6) 
LENGTH (4) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 


wee eee wee eee eee ee eee et et 


) LENGTH (1) 
) LENGTH (1) 
) LENGTH(2) 
) LENGTH (1) 

LENGTH (1 
743 oo 


) LENGTH (1) 
F LENGTH (1) 
3 


) LENGTH (2) 
so ha vENGTH (2) 


) LENGTH (2) 
) LENGTH (2) 


607 

) LENGTH (2) 
) LENGTH (8) 
) LENGTH (1) 
) LENGTH (1) 


LENGTH (13) 

















iy wy 


PAGE 19A 
COPYRIGHT IBM CORP 1976 


(Pe 42 tS ou a? 0 oe es 8 2 2 2 0 te a te OO) © 


U38F9 - DCP DISKETTE UTILITY PROGRAM P/N=1635019 
CROSS~REFERENCE LISTING 


EC=375147 PAGE 19 EC=375147 


COPYRIGHT IBM CORP 1976 


U38F9 - DCP DISKETTE UTILITY PROGRAM P/N=1635019 
CROSS~REFERENCE LISTING 


DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
3028 1018 
191 ERROR jADBRESS, HEX LOCATION(00001832) IN CSECT(U38F9 ) LENGTH (2) 97 H3FFO {ABSOLUTE. HEX VALUE (00003FFO) 
3031 ERTRP 3 hDDRESS. HEX LOCATION(0000326C) IN CSECT(U38F9 ) LENGTH (1) 125 IBIID ohBSOLUTE. HEX VALUE (00000106) 
3426 ERY ADDRESS. HEX LOCATION (00003870) IN CSECT(U38F9 ) LENGTH (2) 47 IDLES ABSOLUTE. HEX VALUF (00000003) 
116 EVTOC ABSOLUTE. HEX VALUE (00000168) 171 INADR {ABDRESS. HEX LOCATION(00001806) IN CSECT(U38F9 ) LENGTH (2) 
584 FDCB ADDRESS. HEX LOCATION(OOCO1A4C) IN CSECT(U38F9 ) LENGTH (2) 880 INCMD ADDRESS. HEX LOCATION (O0QO1C6E) IN CSECT(U38F9 ) LENGTH (2) 
118 FDSST ABSOLUTE. HEX VALUE (00000168) 17390 INIB ROD RESS: HEX LOCATION(00002686) IN CSECT(U38F9 ) LENGTH (1) 
80 FIFTN ABSOLUTE. HEX VALUE (0000000F) 1705 INIT ADDRESS. HEX LOCATION (©0002634) IN CSECT(U38F9 ) LENGTH (1) 
997. 1092 1103 1105 1128 1139 1141 #1189 130 171. 1234 1250 1748 1759 3524 
eae Pet 1449 1330 4541 1543 2613 2815 282 1710 INITA {ADR RESS. HEX LOCATION(CO002642) IN CSECT(U38F9 ) LENGTH (1) 
734 FINDE ADDRESS. HEX LOCATION (0000 1 Buc) IN CSECT (U38F9 \, LENGTH (2) 1727 INITB ADDRESS. HEX LOCATION((00002680) IN CSECT(U38F9 ) LENGTH (1) 
306 326 1398 1504 1580 1602 1891 2082 2443 1709 
2771 1735 INITC ADDRESS. HEX LOCATION (COQO268E) IN CSECT(U38F9 ) LENGTH (1) 
303 FINDS ADDRESS. HEX LOCATION (00001836) IN CSECT (U38F9 ) LENGTH (1) 1726 
1399 1505 1581 1603 1892 2083 2451 2772 1745 INITD ADDRESS. HEX LOCATION (000026A8) IN CSECT(U38F9 ) LENGTH (1) 
2861 FINTO ADDRESS. HEX LOCATION (00003084) IN CSECT(U38F9 ) LENGTH (1) 3256 
2867 1756 INVAL ADDRESS. HEX LOCATION(0C0026B0) IN CSECT(U38F9 ) LENGTH (1) 
2880 FINT1 ADDRESS. HEX LOCATION (000030C6% IN CSECT (U38F9 ) LENGTH (1) 1737 
2877 902 IPLDV ADDRESS. HEX LOCATION (00001C99) IN CSECT(U38F9 ) LENGTH (1) 
2882 FINT2 ADDRESS. HEX LOCATION(0C0030CC) IN CSECT(U38F9 ) LENGTH(1) 1208 1376 1979 
2879 2891 124 ISCSZ ABSOLUTE. HEX VALGE (C000 1000) 
2892 FINT3 ADDRESS. HEX LOCATION(QCOO30EFA) IN CSECT(U38F9 ) LENGTH (1) 842 1461 1570 2446 2502 2598 2667 2878 3013 
8 86 412 Ist ADDRESS. HEX LOCATION (000018D8) IN CSECT(U38F9 ) LENGTH (1) 
71 FIVE ABSOLUTE. HEX VALUE (00000005) 4a7 
1312 1895 2112 2580 414 Is12 ADDRESS. HEX LOCATION(C0O0018DC) IN CSECT(U38F9 ) LENGTH (1) 
3193 FMTYP ADDRESS. HEX LOCATION(0000343A) IN CSECT(U38F9 ) LENGTH (4) 422 
3143 420 IS22 ADDRESS. HEX LOCATION(OOCO18EE) IN CSECT(U38F9 ) LENGTH (1) 
585 FMW2 ADDRESS. HEX LOCATION(OCCO1A4E) IN CSECT(U38F9 ) LENGTH (2) 425 
725 426 Is25 ADDRESS. HEX LOCATION(COOO18FA) IN CSECT(U38F9 ) LENGTH (1) 
587 FMW4 ADDRESS. HEX LOCATION (00001A52) IN CSECT(U38F9 ) LENGTH (2) 406 409 4 
487 522 1897 105 ADDRESS. X LOCATION (0000277A) IN CSECT(U38F9 ) LENGTH(1) 
590 FAW7 ADDRESS. HEX LOCATION (00001A58) IN CSECT(U38F9 ) LENGTH (2) 1901 
2873 2883 1903 110 ADDRESS. HEX LOCATION(00002784) IN CSECT(U38F9 ) LENGTH (1) 
307 FN10 ADDRESS. HEX LOCATION (00001842) IN CSECT(U38F9 ) LENGTH(1) 1899 
330 1968 I15 ADDRESS. HEX LOCATION (00002796) IN CSECT(U38F9 ) LENGTH (1) 
312 FN20 ADDRESS. HEX LOCATION (0CO00184A) IN CSECT(U38F9 ) LENGTH (1) 1902 
327 1910 116 ADDRESS. HEX LOCATION(00002798) IN CSECT(U38F9 ) LENGTH (1) 
319 FN25 ADDRESS. HEX LOCATION (00001856) IN CSECT(U38F9 ) LENGTH (1) 1918 
322 1913 117 ADDRESS. HEX LOCATION(0000279C) IN CSECT(U38F9 ) LENGTH(1) 
324 FN30 ADDRESS. HEX LOCATION (QQ00185EF) IN CSECT(U38F9 ) LENGTH (1) 1907 
321 1916 120 ADDRESS. HEX LOCATION (000027A4) IN CSECT(U38F9 ) LENGTH (1) 
332 FN4O ADDRESS. HEX LOCATION (00001870) IN CSECT (U38F9 ) LENGTH (1) 1912 
310 33 340 1919 I25 ADDRESS. HEX LOCATION(000027A8) IN CSECT(U38F9 ) LENGTH (1) 
335 FN50 ADDRESS. HEX LOCATION(00001876) IN CSECT(U38F9 ) LENGTH(1) 1915 
314 1927 I45 ADDRESS. HEX LOCATION(G00027C0) IN CSECT(U38F9 ) LENGTH (1) 
338 FN70 ADDRESS. HEX LOCATION(0C00187A) IN CSECT(U38F9 ) LENGTH (1) 1925 
323 ; 61 LASAD ABSOLUTE. HEX VALUE (00060230) 
3218 FORMT ADDRESS. HEX LOCATION (00003492) IN CSECT(U38F9 ) LENGTH{4) 1016 198 
3145 117 LDSST ABSOLUTE. HEX VALUE(000008AB) 
79 FORTN ABSOLUTE. HEX VALUE (Q0COOOOE) 1513 
1728 3189 LSTSK ADDRESS. HEX LOCATION (09003425) IN CSECT(U38F9 ) LENGTH (2) 
70 FOUR ABSOLUTE. HEX VALUE (90000004) 2966 2974 3019 3023 3024 3128 3162 
318 331 443 821 825 1197 1732 2093 2128 119 LVTE ABSOLUTE. HEX VALUE (00000020) 
2131 2277 2279 2283 2284 2374 2415 2419 2628 325 1056 1061 1 
2964 2994 3040 3170 3172 3177 3389 MADS ADDRESS. HEX LOCATION(00003798) IN CSECT(U38F9 ) LENGTH (14) 
95 FOURK ABSOLUTE. HEX VALUE (00001000) 3387 
489 524 3393 MAD6 ADDRESS. HEX LOCATION(O000037AC) IN CSECT(U38F9 ) LENGTH (14) 
2859 . FRMAT ADDRESS. HEX LOCATION(00003080) IN CSECT(U38F9 ) LENGTH(1) 3391 
3258 3397 MAD7 ADDRESS. HEX LOCATION (000037C0) IN CSECT(U38F9 ) LENGTH (12) 
3239 FRMER ADDRESS. HEX LOCATION (00003502) IN CSECT(U38F9 ) LENGTH (4) 3395 
2972 2909 MAXRC ADDRESS. HEX LOCATION (00003126) IN CSECT(U38F9 ) LENGTH (2) 
911 FSTSW ADDRESS. HEX LOCATION (0000 1CB9) IN CSECT(U38F9 ) LENGTH (1) 2967 302 30 26 
995 1183 1187 1336 1390 1481 1561 1613 1717 3237 MFMBT ADDRESS. HEX LOCATION(OOCO34FE) IN CSECT(U38F9 ) LENGTH (1) 
2185 2371 2405 2465 2543 2550 2996 2945 2983 9 
938 FXSAV ABDRESS, HEX LOCATION (00001D20) IN CSECT (U38F9 ) LENGTH (2) $01 MORE 1 aBDRESS; HEX LOCATION (00001C98) IN CSECT(U38F9 ) LENGTH (1) 
856 FXSEC ADDRESS. HEX LOCATION (00001C37) IN CSECT(U38F9 ) LENGTH(1) 3359 MSGAA ADDRESS. HEX LOCATION (000036A8) IN CSECT(U38F9 ) LENGTH (21) 
1328 1483 15 1600 1914 2183 2264 2369 2412 3322 
3511 HEDCV Sepa tne: HEX LOCATION(000039C0) IN CSECT(U38F9 ) LENGTH (2) 3356 MSGBB giBDRESS. HEX LOCATION (O0C0369E) IN CSECT(U38F9 ) LENGTH (7) 
3216 HED MG aj ADDRESS: HEX LOCATION (00003485) IN CSECT(U38F9 ) LENGTH (5) 3362 MSGCC aR RESS. HEX LOCATION (C00036C0) IN CSECT (U38F9 ) LENGTH (11) 
927 HEXFF ADDRESS. HEX LOCATION (0000 3D0D) IN CSECT(U38F9 1 LENGTH (1) 3365 MSGDD ADDRESS. HEX LOCATION(OO0O36CE) IN CSECT(U38F9 ) LENGTH(12) 
976 1006 1058 1171 1183 1239 1295 1297 1320 3310 
1328 1341 1353 1357 1369 1376 1418 1612 1613 3369 MSGEE ADDRESS. HEX LOCATION(000036E8) IN CSECT(U38F9 ) LENGTH (33) 
1717 1904 1914 1945 1963 1979 1991 2054 2239 3328 
2938 2980 2956 2976 2983 3105 3117 3154 3164 3371 MSGFF ADDRESS. HEX LOCATION(0000370C) IN CSECT(U38F9 ) LENGTH (33) 
929 HEX 10 ADDRESS. HEX LOCATION(OOOO1DOF) IN CSECT(U38F9 ) LENGTH (1) 3330 
1571 3338 MSG1A ADDRESS. HEX LOCATION (0000362E) IN CSECT(U38F9 ) LENGTH(11) 
3285 HEX40 ADDRESS. HEX LOCATION(0000357D) IN CSECT(U38F9 ) LENGTH (1) 3304 
2975 3341 MSG11 ADDRESS. HEX LOCATION (0C000363C) IN CSECT(U38F9 ) LENGTH (12) 
3289 HEX50 ADDRESS. HEX LOCATION(O000358F) IN CSECT(U38F9 ) LENGTH(1) 3306 
3163 3343 MSG3A ADDRESS. HEX LOCATION (Q000364A) IN CSECT(U38F9 ) LENGTH(15) 
3238 HEX6 ADDRESS. HEX LOCATION(C0003500) IN CSECT(U38F9 ) LENGTH (2) 3312 
3065 3075 3334 MSG4 ADDRESS. HEX LOCATION (00003612) IN CSECT(U38F9 ) LENGTH (12) 
98 HF FOO ABSOLUTE, HEX VALUE (0O00OFFCO) 3298 
820 1952 200 3346 MSGU4A ADDRESS. HEX LOCATION (0000365C) IN CSECT(U38F9 ) LENGTH (13) 
3508 HTACA ADDRESS. HEX LOCATION(000039BA) IN CSECT(U38F9 +) LENGTH (2) 3374 
2235 2249 257 3349 MSG5A ADDRESS. HEX LOCATION(0000366C) IN CSECT(U38F9 ) LENGTH (11) 
3509 HTACB ADDRESS. HEX LOCATION (QO0C39BC) IN CSECT(U38F9 ) LENGTH (2) 3316 
2236 2247 57 909 MSG6 ADDRESS. HEX LOCATION (O0001CA6) IN CSECT(U38F9 ) LENGTH (18) 
3510 HTACC ADDRESS. HEX LOCATION (000039BE) IN CSECT (U38F9 ) LENGTH (2) 906 
2237 2248 2578 3352 MSG6A ADDRESS. HEX LOCATION (C000367A) IN CSECT(U38F9 ) LENGTH (14) 
53 HTOE ABSOLUTE, HEX VALGE (000000 1A) 3320 
2111 2238 2250 2529 2579 3399 MSG7 ADDRESS. HEX LOCATION (000037CE) IN CSECT(U38F9 ) LENGTH (52) 
3262 HUN ADDRESS. HEX LOCATION (00003541) IN CSECT(U38F9 ) LENGTH (1) 3300 
2563 2626 3174 3354 MSG7A ADDRESS. HEX LOCATION (CCO0368A) IN CSECT(U38F9 ) LENGTH(18) 
739 HXHUN ADDRESS. HEX LOCATION (0000 1B56) IN CSECT(U38F9 ) LENGTH (2) 3318 
1392 14698 1576 1577 1964 2792 943 MSG8 ADDRESS. HEX LOCATION(00001D2A) IN CSECT(U38F9 ) LENGTH (14) 
957 HX 167 ADDRESS. HEX LOCATION (C0001D58) IN CSECT(U38F9 ) LENGTH (2) 941 
2775 3367 MSG8A ADDRESS. HEX LOCATION (000036DC) IN CSECT(U38F9 ) LENGTH (10) 
738 HOFOO ADDRESS. HEX LOCATION (00001B54) IN CSECT(U38F9 ) LENGTH (2) 3326 
985 987 998 1012 1179 1190 2883 3336 MSG9 ADDRESS. HEX LOCATION(00003620) IN CSECT(U38F9 ) LENGTH (12) 
96 HOOOF ABSOLUTE. HEX VALUE (0000000F) 3302 
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DECLARED 

3379 
872 
99 
100 
120 
1638 
89 
187 
928 
3261 
1623 
67 


$32 
90 
91 
175 
176 
45 


46 


954 
3277 
3279 
3281 

889 

733 

742 

809 

810 
2351 
2364 
2379 
2383 
2386 
2398 
2404 
2408 
2416 
2437 
2448 
2450 
2459 
2461 
2464 

126 
3424 
2650 
2660 
2669 
2671 


NAME 
MSG9A 
MVSTR 
M1 

M4 
NDFPS 
NEXT 
NINES 
NO 
NORTY 
NUMCM 
NXTDS 
ONE 


ONES 
ONE27 
ONE28 
OPTN1 
OPTN2 
out 


OUTIN 


OVRLY 
PARL3 
PARLS 
PARL6 
PCSAV 
PCYLA 
PDCB 

PDEND 
PDLEN 
PDPGM 
PDPO1 
PDPO2 
PD P03 
PDPOY 
PDPOS5 
PD P06 
PDPO7 
PDPO8 
PDPOS 
PDP 10 
PDP11 
PDP12 
PDP13 
PDP 14 
PELID 
PFGY 

PF PGM 
PFPO1 
PFPO2 
PFPO3 
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gABDRESS. HEX LOCATION (0C00373A) IN CSECT(U38F9  ) LENGTH(18) 
ADDRESS. HEX LOCATION (OCOO1C5E) IN CSECT(U38F9  ) LENGTH (2) 
1072. 1121 58 1161 1162 
ABSOLUTE. HEX VALUE (FFFEFEPF) 
408 1718 2102 2514 2679 
ABSOLUTE. HEX VALUE (FFFFPFFC) 
ABSOLUTE. HEX VALUE (00000008) 
 ADBRESS. HEX LOCATION (00002516) IN CSECT(U38F9 ) LENGTH (52) 
ABSOLUTE. HEX VALUE (00000063) 
ADDRESS. HEX LOCATION (00001828) IN CSECT(U38F9 ) LENGTH(1) 
1215 1382 1470 1616 2866 2950 2 
ADDRESS, HEX LOCATION (00001D0E} IN CSECT(U38F9  ) LENGTH(1) 
ADDRESS. HEX LOCATION (00003540) IN CSECT(U38F9 ) LENGTH(1) 
,ADDRESS. HEX LOCATION (O0CO24F8) IN CSECT(U38F9 ) LENGTH(2) 
ABSOLUTE. HEX VALUE (00000001) 
317. 328 #336 424 478° 480 485 £513 515 
520 675 715 717 723 819 875 885 1244 
1369 1371 1385 1476 1511 1568 1583 1740 1823 
1953 1954 1974 1995 1997 2007 2074 2116 2134 
2139 2201' 2212 2266 2299 2302 2358 2360 2394 
2400 2403 2410 2425 2431 2435 2455 2541 2542 
2581 2588 2589 2611 2615 2684 2686 2699 2706 
2707 2724 2730 2734 2911 2957 2977 3019 3032 
3053 3074 3081 3085 3095 3100 3106 3127 3128 
ADDRESS. HEX LOCATION (00001D14) IN CSECT(U38F9 ) LENGTH (2) 
ABSOLUTE. HEX VALUE (0000007F) 
2376 2489 2507 2603 2654 2672 
ohBSOLUTES HEX VALUE (00000080) 
ADBRESS. HEX, LOCATION (0000180) IN CSECT(U38F9 ) LENGTH({2) 
ADDRESS. HEX LOCATION (00001810) IN CSECT(U38F9  ) LENGTH (2) 
1220 1230 1707 1746 
ABSOLUTE. HEX VALUE (00000000) 
1211. 1248 1520 1731 1758 2058 2063 2079 2086 
2176 2194 2226 2273 2318 2462 2537 2624 2743 
2778 2863 2947 3113 3115 3148 3158 3160 
ABSOLUTE, HEX VALUE (00000001) 
1214 1340 1348 1356 1364 1381 1469 1615 1725 
1769 1781 1794 1806 1818 1836 1849 1862 1875 
1944 1968 2865 2949 2953 
ADDRESS. HEX LOCATION (00001D51) IN CSECT(U38F9  ) LENGTH(1) 
>ADDRESS. HEX LOCATION (00003566) IN CSECT(U38F9 ) LENGTH(2) 
aRDRRESS. HEX LOCATION (0000356A) IN CSECT(U38F9 ) LENGTH (2) 
aADDRESS. HEX LOCATION (0000356E) IN CSECT(U38F9 ) LENGTH(2) 
 ADBRESS, HEX LOCATION (00001C80) IN CSECT(U38F9 ) LENGTH(2) 
ADDRESS. HEX LOCATION(00001B4A) IN CSECT(U38F9  ) LENGTH(2) 
452 G67 7 514 959 
ADDRESS, HEX LOCATION (00001B58) IN CSECT(U38F9 ) LENGTH (1) 
ADDRESS. HEX LOCATION (00001BC8) IN CSECT(U38F9  ) LENGTH(1) 
ABSOLUTE. HEX VALUE (00000070) 
ghDBRESS. HEX LOCATION (00002B4C) IN CSECT(U38F9 ) LENGTH(1) 
a ADDRESS. HEX LOCATION (00002B74) IN CSECT(U38F9 ) LENGTH(1) 
a ADDRESS. HEX LOCATION (00002BA6) IN CSECT(U38F9 ) LENGTH(1) 
> ADDRESS. HEX LOCATION (00002BB0) IN CSECT(U38F9 ) LENGTH (1) 
ADDRESS. HEX LOCATION (00002BB6) IN CSECT(U38F9 ) LENGTH(1) 
2378 2382 2428 2036 
aRDDRESS. HEX LOCATION (CO002BCE) IN CSECT(U38F9 ) LENGTH(1) 
a ADDRESS. HEX LOCATION(COQO02BDC) IN CSECT(U38F9 ) LENGTH(1) 
aARDRESS. HEX LOCATION (OOOO2BE4) IN CSECT(U38F9 ) LENGTH(1) 
sADBRESS. HEX LOCATION(QO002BFA) IN CSECT(U38F9 ) LENGTH(1) 
a ADDRESS. HEX LOCATION (00002C3A) IN CSECT(U38F9 ) LENGTH(1) 
oRDDRESS. HEX LOCATION (OCOO02CS5E) IN CSECT(U38F9 ) LENGTH(1) 
> RDDRESS. HEX LOCATION (00002C64) IN CSECT(U38F9 ) LENGTH (1) 
ABDRESS. HEX LOCATION (00002C80) IN CSECT(U38F9 ) LENGTH(1) 
> ADDRESS. HEX LOCATION (00002C84) IN CSECT(U38F9 ) LENGTH(1) 
jADDRESS. HEX LOCATION (O0C002C8A) IN CSECT(U38F9 ) LENGTH (1) 
ABSOLUTE, HEX VALUE (00000126) 
1345 1361 1961 2009 
gRDDRESS. HEX LOCATION(C0003844) IN CSECT(U38F9 ) LENGTH (42) 
ADDRESS. HEX LOCATION (OCOQO2E8C) IN CSECT(U38F9 ) LENGTH (1) 
> ADDRESS. HEX LOCATION (COQO2EB0) IN CSECT(U38F9 ) LENGTH(1) 
aADDRESS. HEX LOCATION (QOOO2ECC) IN CSECT(U38F9 ) LENGTH (1) 
ADDRESS. HEX LOCATION (Q0002ED2) IN CSECT(U38F9 ) LENGTH(1) 
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DECLARED 
2673 
2693 
2696 
2708 
2716 
2720 
2722 
2736 
2740 
2742 
2745 
3384 


3385 
113 
114 
111 
123 

3382 

3387 

3391 

3395 
704 
533 
728 
710 
714 
741 
109 

3283 

3287 

3291 

2314 
566 

3207 

3209 

3211 

3220 
567 
569 
572 


573 


2979 
2984 
2993 
3005 
3092 
3010 
3015 
3017 
54 
548 
867 
919 
9714 


NAME 
PF POY 
PFPOS 
PF P06 
PFPO7 
PFP08 
PF P09 
PF P10 
PFP11 
PFP12 
PFP13 
PFP14 
PLINE 


PLIN6 
PRC1A 
PRC2A 
PRTNM 
PSCSZ 
PSD1 
PSD5 
PSD6 
PSD7 
PSEEK 
PS EKL 
PSEND 
PSEO03 
PSE10 
PSLEN 
PTCNT 
PTG3 
PTGS 
PTG6 
PUTIT 
RDCB 
RDVER 
RD VHD 
RDVN1 
RDVM2 
RDW2 
RDW4 
RDW7 


RDW8 


RD32 
RD33 
RD33A 
RD33B 
RD 33C 
RD35 
RD36 
RD37 
READI 
RECAL 
REDID 
RELEM 
RELMG 
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ATTRIBUTES AND REFERENCES 
ADDRESS. HEX LOCATION (O0002FD8) IN CSECT(U38F9 ) LENGTH(1) 
oADDRESS. HEX LOCATION(O0002F1A) IN CSECT(U38F9 ) LENGTH(1) 
>ABDRESS. HEX LOCATION (00002F24) IN CSECT(U38F9  ) LENGTH(1) 
> ADDRESS. HEX LOCATION (0O0002F46) IN CSECT(U38F9 ) LENGTH(1) 
oADDRESS, HEX LOCATION (00002F5E) IN CSECT(U38F9 ) LENGTH(1) 
> ARDRESS. HEX LOCATION (00002F66) IN CSECT(U38F9  ) LENGTH(1) 
,ADDRESS. HEX LOCATION (00002F6A) IN CSECT(U38F9 ) LENGTH(1) 
oa DD RESSs HEX LOCATION (00002 F8E) IN CSECT (U38F9 ) LENGTH (1) 
3 TRE e5 9 TEX LOCATION COUP eEeh) IN CSECT(U38F9 ) LENGTH (1) 
spy HEX LOCATION (O0Q02F9E) IN CSECT(U38F9 ) LENGTH (1) 
oADBRESS, HEX LOCATION (O0CO2FA4) IN CSECT(U38F9 ) LENGTH(1) 
ADDRESS. HEX LOCATION (09903752) IN CSECT (U38F9 , LENGTH (1) 
2091 2237. 2244 «2316. «2321 «2561 2954 (3228 3382 
ADDRESS. HEX LOCATION (00003758) IN CSECT(U38F9 ) LENGTH(1) 
ABSOLUTE. HEX VALUE (00000000) 
1661 1664 1667 1670 1673 1682 1691 1694 1697 
ABSOLUTE, HEX VALUE (000003FC) 
1679 1685 
>ABSOLUTE. HEX VALUE (00000011) 
ABSOLUTE. HEX VALUE (00009100) 
829 1464 1574 2449 2505 '2601 2670 2881 3016 
ADDRESS. HEX LOCATION (CO00374E) IN CSECT(U38F9  ) LENGTH(2) 
> ADDRESS. HEX LOCATION(0C6003794) IN CSECT(U38F9  ) LENGTH(2) 
oADDRESS. HEX LOCATION (000037A8) IN CSECT(U38F9 ) LENGTH(2) 
»ADDRESS. HEX LOCATION(000037BC) IN CSECT(U38F9  ) LENGTH(2) 
a ae HEX LOCATION (00001B02) IN CSECT (U38F9 ) LENGTH (1) 
ST eam a HEX VALUE (OQO0005A) 
ADDRESS. HEX LOCATION(C0001B48) IN CSECT(U38F9 ) LENGTH(1) 
ADDRESS. HEX LOCATION (00001B12) IN CSECT(U38F9  ) LENGTH(1) 
ADDRESS, HEX LOCATION (00001B1C) IN CSECT(U38F9 ) LENGTH(1) 
ABSOLUTE. HEX VALUE (00000046) 
ABSOLUTE. HEX VALUE (00000010) 
2107 2454 2456 
3 ADDRESS. HEX LOCATION (00003572) IN CSECT(U38F9  ) LENGTH(10) 
sADBRESS. HEX LOCATION(00003580) IN CSECT(U38F9  ) LENGTH(14) 
a ADDRESS. HEX LOCATION (00003592) IN CSECT(U38F9 ) LENGTH(14) 
ADDRESS. HEX LOCATION (CC002B20 IN CSECT (U38F9 LENGTH (1 
2122 2256 2261 Bu | ( ) ™ 
ADDRESS. HEX LOCATION(00001A2C) IN CSECT(U38F9 ) LENGTH(2) 
ghDBRESS. HEX LOCATION (00003462) IN CSECT(U38F9 ) LENGTH(2) 
aay see LOCATION (00003466) IN CSECT(U38F9 ) LENGTH (2) 
so070 HEX LOCATION (OO0CO346A) IN CSECT(U38F9 ) LENGTH (18) 
anog HEX LOCATION (00003498) IN CSECT(U38F9 ) LENGTH (28) 
ADDRESS. HEX LOCATION(QOOO1AZE) IN CSECT(U38F9 ) LENGTH (2) 
haa) eae LOCATION (00001A 32) IN CSECT (U38F9 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00001A38) IN CSECT(U38F9 L LENGTH (2) 
985. 1110 1117 1392. 1412 1445 1453 °1498 1576 
1906 1938 2893 2895 
ADDRESS. HEX hae race Pane IN CSECT (U38F9 ) LENGTH (2) 
400 986 998 1011 1080 1117 1393 °1396 1469 
1453 1499 1502 1578 1939 2894 
S930 HEX LOCATION (000031D8) IN CSECT (U38F9 ) LENGTH (1) 
,ADDRESS. HEX LOCATION (000031E6) IN CSECT(U38F9  ) LENGTH(1) 
sADDRESS. HEX LOCATION(000031FE) IN CSECT(U38F9  ) LENGTH(1) 
jABDRESS. HEX LOCATION (0000321C) IN CSECT(U38F9  ) LENGTH(1) 
att tl hee LOCATION (00003218) IN CSECT (U38F9 ) LENGTH (1) 
a thane t (2 wane LOCATION (00003228) IN CSECT(U38F9 ) LENGTH (1) 
a ADDRESS. HEX LOCATION (00003236) IN CSECT(U38F9  ) LENGTH(1) 
Spence HEX LOCATION (0000323C) IN CSECT(U38F9 ) LENGTH (1) 
soe HEX VALUE (QO00000TF) 
Te eeon LOCATION (Q0001A0C) IN CSECT (U38F9 ) LENGTH (2) 
ADDRESS. HEX LOCATION (0C0001C54) IN CSECT(U38F9 LENGTH (2 
1345 1361 1954 1960. 1961 2007 2008 (9009 ie ai 
‘oun Seka Fee E TON CUNOONGES) IN CSECT (U38F9 ) LENGTH (2) 
, ADDRESS. HEX LOCATION(QO0O1CBC) IN CSECT(U38F9  ) LENGTH(2) 
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1635019 


P/N= 


DCP DISKETTE UTILITY PROGRAM 


U38F9 - 


CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


NAME 


DECLARED 


NAME 
RELOD 
" RELSD 


DECLARED 


MNODWO 
ONNOON 
AME oO 
NANNNM 


ormws 
ONNE oO 
NM Oo 
NANANAMH 


ors 
CONE AW 
ANNE On 
ANNNMM®™ 


OMOONWN 
COOMOnVO 
NANTMWOe 
NANNMOM 


WOMNTMOHWOMUEPONN MNONKDnSFOOMPEOME SANNSTe MOO 
TFONCOMNMALE HANS AQAA AOM SE OTFRHAHKIFNNDMO 
DOFTMIAMEOTrMMMrwvao MOOT KNAMINMNE DOCK MNSr Or 

SEF KK NNNNNNM® TEE ETEK ONNNNANNIN® 
ONEKSTOOPOKTNTOMLESELE ST NVNQOTAOFTSArKTMNONOTOrMNeroad 
TIANTONANMOSLOTOKIAM NOKDANOCTOMECMOSErAOSKNANMDH 
DOSFMNAFNEOEMNMSTODOK— PFOOTKNMANMNEADOTKHMNAY OO 

SETHEKK TMANNNNNMM EE NNNNNNNM 
SPOTOMNODOMMAIANEETMN APNWOOCHONMNMWYeOFmnanmewH 
MTFTAMNDAMAMEOSFEAAMN NON OKTNANSTSFANVAOMNACANA 
DOONSFMNEDEMMAMNEFOTF FOOT KNMNAMNE DOCK’ NSTS OO 

SPST SCSRANNNANAMM COS ET EO TN NNANANNl®M 
UONDNMNNAWEAMOKNONOWM™ KSFIAMHADOSODONINNOAE AAT 
NMNAMNNKCOMOCONEPASIN NOrrnrstnomManwvomnNnrern 
DOONTMWUWOEMMAMNESK CPOOTKNMANMEHNOTKNIAEDOO 

CPE ENN NNNNM OTEK KE ONNNAANNAAN®M 

~~ ~m 


N ae) 


DEIAMeDOMMNNDONONCOMATFOANCONMADDWOMNEsaKMHnwDOEKTroOrPra 

ADMWAHANOMAKNE NF ONWOKHDEECINOCNOPOTOKNOMSMNNAMNT eno 

FHNTMNOTKODDOSTAMNOPONMANE OK OPOCOT EK NMIAMUE HOOT NISE™ OO 

NANAMMNO SCPC TSeTTrANNANNANMMO ere rrr errr KE KNANANNNG® 
oO oO 


© ro) 
DANAE DODONASHL ES PFONQOANALME MACH MOM SOMONE AMODINNAOWND 
DEMNWCO "MOD ANE OCONDOTM OMe “EK HMNATAMNNDMOMNCANSOOrs 
PNPNDK MOCO KTFNOPONMANE ORK AE HOOT KNSTINOHNOCOFNANWO 


NANNANM 


DSK PCSCTKCKNANNNNANMMD 
wl - 


OT MEST EK NNNANNANNEY 


«< «< 
D™OMODHNEPOMDOSKTDOIHKME MNF CHOONUTAADTNKNOMNODHOOMI 
DEOMAH NODMNNETORNDOEONED ANMAMANDOMONOAKNDNE oO 
FATOFORMOO TK TNMOEANMAMNEDOKRKMNDOOTKEATINOHOOTAMNDO 


NANANSY 


COOMANAE™ 


RQ PPCM SCO KONNANNANNANM®M 
= —™ 


POOKAMNANNSE DOSTSTTOMD s 


CS TEE EK NNNANNAN® 


OFOANMOMNOOSKsODNEMWD 


DOP OMAKDGEMNENANOM SK ODEON BANNOAMANSOATNASFONTOOr TS 
TAMMNE ODM ODOC AMNMOE DAMN AME DONMNDOOTKNSANHMNSCOTNMNWDWO 


NANANM 


fe ST ee So ee ne 


CAP OHAHOMOTNAEKONO 
CHT NOENNOFOOSrONnE 
TFTINMNHNGCSATVHOMAWVOHe— 

TKK KNNNNAMM 


DHOOM SFOMMNOIAMMNDOO 
POTNNE HOMWOMOOOUNDO 
SFIMNOSCKTNWOMTOHre 

Peer NNNNAMN 


OASTNWPEOMeKKNOMKWrD 
M™OrNeeDOoMNNODOOnMw 
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WODOMOECTONMMaAMmM NOATWMNAMWOMANOUWMsSFOMWPM 
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MIM MNOSCAPNOKHOCOCK BPOLCTANMIFMMNANMSFORPLE ONE 

TrNNAANNANANMMMM SPE EE NNNNNNNNM® 


$TODINDENVUKOCOMAM FANDWDTMOrTONNWOOCONOPMNrwon 
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-~ aa 

ve) ive) 
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[) oO 


Oo [~) 
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ROE er eee mann ae 
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4 ss 


AEN MO NEOMESME ene eAcemncuconnaame 

POT NOKSEMNOOPMN Ke OoOMmMorrszaTrNNDOMOMme 
HMMMNANANNWWHNDOOSCE MTOCECNANANTTNHOMIANHOLF DODO 
ica] CHONANANANMNMNMHMNSA Cer Cer KCK OKNNNANANAM 
m= jaw} 


) LENGTH (2) 


HEX ee IN CSECT(U38F9 
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1249 ieu 1e8 198 1894 1998 1€03 108 1e11 473 SEO3 apo HEX LOCATION (0000195C) IN CSECT(U38F9 ) LENGTH (1) 
1580 4792 1793 1804 1906 18i¢ 13897 1819 1931 508 SE031 Salata HEX LOCATION (000019B6) IN CSECT(U38F9 ) LENGTH (1) 
1874 1807 1Ba8 1893 1895 1904 1909 1998 1993 G77 SE10 fo gee LOCATION (00001966) IN CSECT(U38F9 ) LENGTH (1) 
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sis Sag 3188 Jig) Sige 2s Rl Bee 529 aaz01 fuss. nx tocanron(o0o0t9es) an cancr(uier> ) rasta 
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5236 5239 2630 5234 5234 5288 ALE se a8 Ate 594 SIW2 oe HEX LOCATION (QOOOO1A5E) IN CSECT(U38F9 ) LENGTH (2) 
353 3543 ALE 5585 att ssie 5768 5770 5793 596 STW4 fee baa LOCATION (OO001A62) IN CSECT(U38F9 ) LENGTH (2) 
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me meme MEMO MELSEMELT a1 stare WBdoxdde! 28] ands tdoodsfo 

3485 3989 3468 3458 3199 pe eee eee, See 86 SIXTY Ay heey HE ee 
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2804 2805 2807 2809 4 3205 THSMG a HEX LOCATION (QOO0345E) IN CSECT(U38F9 ) LENGTH (2) 

sg eee 1006 1025" 1086 1058 1067) 1070. ales ehiciae 3235 TITL1 an Shae ee IN CSECT (U38F9 ) LENGTH (1) 
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aie aed Hen oe en ee ee, eee 1259 TPGMB ADDRESS. HEX, LOCATION (000020BA) IN CSECT(U38F9 ) LENGTH (1) 

945 SC TRT OT tae be ale LOCATION (Q0001D3A) IN CSECT(U38F9 ) LENGTH (2) 65 “PGse jABSOLUTE, HEX. VALUE (00000000) 

593 SDCB Ace HEX LOCATION (QOCOTASC) IN CSECT(U38F9 ) LENGTH (2) 3215 TRKNG ADDRESS. HEX’ LOcagrON (00003480) IN CSECT(U38F9 ) LENGTH (5) 
ee ae 3788 Bere eter ee terre Para cs 3116 TSTO5 OE alia HEX LOCATION (00003356) IN CSECT(U38F9 ) LENGTH (1) 
joo ears (0G te eee reas “Ae 3118 TST10 ADDRESS. HEX LOCATION (C000335C) IN CSECT(U38F9 ) LENGTH(1) 
sie aid able abte tek tok eee OE ENGTE CZ) 3121 TST11 ghDRESS. HEX LOCATION (00003364) IN CSECT(U38F9 ) LENGTH(1) 

an iii 1300 taiON UBB TENT yee ou. auaee wae eee 3140 TST20 s9a5°0 HEX LOCATION (000033A2) IN CSECT(U38F9 ) LENGTH (1) 
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557 SEDCB Boa ete LOCATION (OOOO1A1C) IN CSECT (U38F9 ) LENGTH (2) Me ae 26293478 De ee 

466 SEEK pepe ae tek uOCk EEO AOOOU hwo IN CSECT(U38F9 ) LENGTH(1) i ee 19072788 ee cosa 

501 SEEK1 Bua eae LOCATION (000019A2) IN CSECT(U38F9 ) LENGTH (1) s ails 2594 i ie eee eee 

674 SEIDB Reae ese ee LOCATION (QOOOO1TADC) IN CSECT(U38F9 ) LENGTH (2) hae aa? 3890 "888 124) 1345 1361 1964 1988 

675 SEID1 Root HEX LOCATION (QCOOO1TADD) IN CSECT(U38F9 ) LENGTH (1) 2424 5426 3972 3986 9024 4634 $6206 Sa98 444e 

676 SEID2 ADDRESS, HEX LOCATION (QOO001ADE) IN CSECT(U38F9 ) LENGTH(2) 94 TWOK BOS aR eg tee (00000800) 
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DECLARED 
93 
823 
844 
851 
3223 
3225 
891 
134 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
135 
161 
162 
163 
164 
165 
166 
136 
137 
138 
139 
140 
3 
539 
668 
605 
955 
956 
347 
2958 
2968 
540 
544 
542 
543 
545 
121 
3427 


NAME 

TWO95 
TYPE 
TY PE2 
TY PND 
UNREC 
UNRE1 
UTILT 
UTL1 

UTL10 
UTL11 
UTL12 
UTL13 
UTL14 
UTL15 
UTL16 
UTL17 
UTL18 
UTL19 
UTL20 
UTL21 
UTL22 
UTL23 
UTL24 
UTL25 
UTL26 
UTL27 
UTL28 
UTL29 
UTL3 

UTL30 
UTL31 
UTL33 
UTL34 
UTL35 
UTL36 
UTLY 

UTL5 

UTL6 

UTL8 

UTLO 

U38F9 
VDCB 

VDCBL 
VDCB1 
VENTO 
VENT1 
VERCB 
VEROO 
VERO2 
VFW2 

VF W3 

VFW4 

VFWS 

VFW7 

VHDLG 
VHDL1 


ABSOLUTE. 
2694 
ADDRESS. 
826 
ADDRESS. 
828 
ADDRESS. 
840 
ADDRESS. 
3157 
ADDRESS. 
3223 
ADDRESS. 
1224 
ABSOLUTE. 
908 
ABSOLUTE. 
939 16 
ABSOLUTE. 
1641 
ABSOLUTE. 
3214 
ABSOLUTE. 
923 
ABSOLUTE. 
3383 
ABSOLUTE. 
3231 
ABSOLUTE. 
1657 
ABSOLUTE. 
3456 
ABSOLUTE. 
3470 
ABSOLUTE. 
3477 
ABSOLUTE. 
3484 
ABSOLUTE. 
3491 
ABSOLUTE. 
3498 
ABSOLUTE. 
3505 
ABSOLUTE. 
1644 
ABSOLUTE. 
1648 
ABSOLUTE. 
392 
ABSOLUTE. 
3396 
Reece es 
ABSOLUTE. 
1637 
ABSOLUTE. 
942 
ABSOLUTE. 
3413 
ABSOLUTE. 
3378 
ABSOLUTE. 
3410 
ABSOLUTE. 
3420 
ABSOLUTE. 
3388 
ABSOLUTE. 
3463 
ABSOLUTE. 
915 
ABSOLUTE. 
857 
ABSOLUTE. 
3282 
ABSOLUTE. 
3290 
ABSOLUTE. 
3423 
CSECT. ST 
3. 3520 
ADDRESS. 
364 5 80 
ABSOLUTE. 
847 
ADDRESS. 
668 848 
ADDRESS. 
1045 
ADDRESS. 
1504 1602 
ADDRESS. 
2871 2961 
ADDRESS. 
2955 
ADDRESS. 
3022 3030 
ADDRESS. 
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